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Mieux qu’un long rapport 
montrez vos courbes 


C'est un fait, une courbe ou un diagramme donnent — de courbes isométriques. 
instantanément les informations essentielles dont vous La définition est de 200 points par cm. 
avez besoin, sans dépenser de longues heures à dépouiller La table traçante STROBE est interfaçabie aux 
vos «listings» . microcalculateurs les plus diffusés : 
Maintenant, la table traçante STROBE M 100 est — Apple I, Im  -— CBRM/PET 
disponible avec de nombreux logiciels, utilisable — DSBORNE, 1" — XEROX 820 7" 
directement sur votre microcaiculateur à un prix 
compétitif. 


Les logiciels fournis par 
STROBE permettent le tracé et 
la modification des courbes 
sans connaissance approfondie 
de l'informatique, en utilisant 
toute la puissance du langage 
conversationnel. 

Les informations peuvent 


Strobe Inc 
28, rue de Betle Vue 
BOX 7. 1050 Bruxelles, 


STROBE Belgique 


Tél.: (32) (2) 649-5663 
Peur tous renseignements et démenstratiens 


Les 





être représentées sur papier RD 
format standard et sur 
transparant utilisable en 1 éle st ue 
rétroprojection, sous forme : 9, rue Noblet, 
— d’histogramme, 92500 Rueil-Malmaison 
— de courbes, Tél.: 749.70.44. 

LA TABLE TRACÇANTE STROBE 

Voir c’est croire Pinto 
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Editorial 


Le numéro 6 de Pom's représente un grand changement : tout d'abord, nous avons modifié 
la couverture et la présentation, comme vous avez pu le remarquer immédiatement. Cela nous 
permet de vous donner, dans le même format, l'équivalent de quinze pages de plus : en effet, on 
peut mettre 50 & de texte en plus dans une page composée. Nous avons aussi gagné une 
quinzaine de pages en mettant sur deux colonnes les listes en assembleur des programmes HELLO 
et TORTUE&, avec des caractères compressés. Dites-nous si uous préférez avoir ainsi plus de 
matière, ou si uous trouvez que la lisibilité en souffre trop. Enfin, le tirage de Pom's passe à 9 000 
exemplaires. 


Nous avons tenu compte de la remarque de plusieurs lecteurs au Sicob. se plaignant du 
niveau trop élevé des articles : un effort particulier a été réalisé quant à la réalisation d'articles 
pédagogiques. Remarquons en outre que, même si un article présentant un programme en 
assembleur peut paraître trop compliqué à lire, cela ne vous empêche pas d'utiliser ce programme à 
partir de la disquette (le mode d'emploi est fourni sur le programme MENU de chaque disquette). 


Signalons enfin que le Recueil N° 1 de Pom's sera disponible dès le 27 décembre ; ce recueil 
regroupe, en près de 200 pages, la plupart des articles des quatre premiers numéros de Poms ; 
l'ensemble des programmes est fourni sur trois disquettes. Cet album coûte 120 F seul, et 270 F 
avec ses 3 disquettes d'accompagnement, port compris. Nous sommes maintenant en rupture de 
stock des numéros 1 à 3 : seuls les numéros 4, 5 et 6 peuvent donc être commandés séparément 
(ou aver leurs disquettes). 


Rappelons aussi qu'il est toujours possible de commander des disquettes séparément : 50 F 
par disquette d'accompagnement de Pom's, 75 F pour la disquette d'accompagnement du livre 
« Visicalc sur Apple» {spécifier dans ce demier cas s'il s’agit de DOS 3.2, DOS 3.3 ou Apple Ill). 


Enfin pour ceux d'entre vous qui souhaitent mettre de la couleur dans leur vie. nous 
proposons aussi le T-shirt avec la pomme en six couleurs (tailles 36-38, 38-40 et 40-42) à 50 F. 


Passons maintenant au programme de ce numéro. Nous vous offrons une course de tortues. 
entre celle de Michel Crimont en Pascal, et celle de Jacques Duma en assembleur. Olivier Herz 
vous apporte un nouveau chef-d'œuvre avec l'analyseur de syntaxe, qui vous permettra de tester 
tout un programme BASIC, même dans ses corridors peu fréquentés. Thierry le Tallec et Jacques 
Tran- Van vous donnent enfin un programme de HELLO très performant que vous pourrez mettre 
sur toutes vos disquettes. 

Gérard Michel vous offre un programme d'INPUT généralisé, avec un sous-programme en 
assembleur commenté de façon très détaillée. C'est particulièrement intéressant comme initiation à 
l'assembleur. Remarquons aussi. au niveau pédagogique, une nouvelle contribution de Guy 
Mathieu, relative à l'ergonomie des programmes. 


Nous avons un banc d'essai, réalisé par André Babeanu, de «The Last One » et de C.O.R.P., 
des programmes qui écrivent uos programmes pour vous. Enfin, divers petits programmes se 
préparent à enrichir votre programmathèque et vos longues soirées d'hiver. 


Hervé Thiriez 


Ont collaboré à ce numéro : André Babeanu — Michel Crimont — Jacques Duma — Philippe Fabert — Olivier 
Herz — Régis Lardennois — Thierry Le Tallec — Guy Mathieu — Gérard Michel — Hervé Thiriez — Jacques 
Tran-Van. 

Rédacteur : Olivier Herz — Dessins : Laurent Bidot et Bertrand Delestrée. 


Directeur de la publication — rédacteur en chef : Hervé Thiriez — Siège social et abonnements : Éditions MEV — 
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918.13.07 — Régie publicitaire : Force 7 — 41, rue de la Grange-aux-Belles — 75483 Paris Cedex 10 — Tél. (1) 
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Transfert d’Applesoft vers EXEC 


Jacques Duma 


Ce petit programme transforme tout ou 
partie d’un programme Applesoft en 
fichier de type TEXT dont l'EXECution 
charge en mémoire la partie de pro- 
gamme en question. De nombreux 
progammes ont été publiés à ce sujet. 
mais la particularité de celui-ci tient à sa 
concision et à son automatisme com- 


Quand on le 


Le programme doit être situé sur une 
disquette non protégée à l'écriture, car 
il crée (et efface à la fin) deux fichiers 
EXEC qui s'appellent l'un l'autre : 


10 GOSUE 1000:T$ = "CAPTURE D'UN PROGRA 
MME  APPLESOFT": GOSUER X000:T$ = 
—": GOSUK 2000: PRINT 

15 CD$ = “,D" + STR$ ( PEEK (45624)) 

20 T$ = "CREATION D'UN FICHIER EXEC': G 
GOSUERP2OCONT PS EME 
ET Rene *: GOSUE 2000: PRINT : 
PRINT : PRINT : PRINT 

50 T$ = NOM DU PROGRAMME À CAPTURER"': G 
OSUE 2000: PRINT : INPUT N$: BRIN 
T 2 IF N$ = "" THEN TEXT : HOME 
: PRINT "AU REVOIR.": END 

52 INPUT "SUR QUEi DRIVE #";:ND$:ND = V 
AL (ND$)3 IF ND © } 1 AND ND 


} Z THEN PRINT CHR$ (7) :: GOTO 
S£ 

55 INPUT "LIGNES (DEBUT-FIN) ? "sLIS: 1 
F LI$ = "" THEN LI$S = "1-653999": 
GOTO 40 

Sa LI = VAL (LI$): IF LI © i OR LI ) 63 


DIANORMEREC D AINTARIEO)NGOTES3 


SS IF LIS = STR$S LI) OR LIS = STR$ ( 
ET + CES GOTURAC 

56 IF MID$ fLI$, LEN ( STR$& (LI)} + 1, 
192 10 OS GOTONSS 

537 LJ = VAL ( MID$ {LI$, LEN ( STR$ {LI 


RL PIN ETF LITE LINOR AIN 6527 
3 OR LI © > INT (LJ} GOTO 53 

58 GOTO 40 

39 PRINT CHR$ {7):: GOTO 3535 

&4O PRINT :T$ = "NOM DU FICHIER EXEC": G 
OSUE 2000: PRINT = INPUT X$: PRIN 


Ts IF X$ = "YO THEN x$ = °X." + N 
$: GOTO 45 

42 X$ = "X." + X$ 

45 INPUT "SUR QUEL DRIVE #":XDH:ëXD = V 
AL (XD$): IF XD$ = “"" THEN XD = N 


D:XD$ = STR$ (XD): GOTO 50 

46. IF XD { >} 3 AND XD { } 2 THEN PRI 
NT CHR$ (7):: GOTO 45 

50  GOSURH 1000: VTAEH 9:T$ = N$: GOSUEH 20 


K'P4#TL et K‘P#T2. De plus, le 
drive par défaut doit être celui où est 
situé CAPTURE (il ne faut par exemple 
pas utiliser une séquence telle que 
LOAD CAPTURE, DI suivi de 
CATALOGD2Z et RUN). 


lance. 
demande le nom du progamme 
plet. Applesoft à capturer. le num&o du 
drive où il se situe et l'identification du 
bloc de lignes à capturer : il demande 
ensuite le nom du fichier EXEC à créer 
et le numéro du drive où il faudra le 


mémoriser. Il ajoute le préfixe [X.] à ce 
nom ; si l'utilisateur a appuyé sur 
RETURN sans donner de nom, le nom 
sera [X.] suivi du nom du programme 
Applesott. 


Tout le reste du travail s'effectue de 
façon entièrement automatique. Le 
lecteur intéressé par l'analyse de 
façon dont tout cela se fait pourra f 
un MONCIO avant de lancer C 
TURE, ou bien teut simplement étu 
ja conception de ce programme. 


CAPTURE 


O0: PRINT :=T$ = "LIGNES " + LI$: 
GOSUR 2000: PRINT :=:T$ = "DRIVE +#" 
+ ND$ + " CONVERTI SUR DRIVE #" 
+ XD$ + " EN": GOSUE 2000: PRINT 

:T$ = X$: GOSUE 2000 

60 PRINT : PRINT : PRINT : PRINT : INPU 

T "EST-CE CORRECT ? “:R$: IF R$ ( 
) “OUI” GOTO 1ÿ 

80 GOSUR 1000: VTAE 11: FLASH :T$ = “ U 
N PEU DE PATIENCE S.V.P. “: GOSUH 

2000: NORMAL 

CHR$S (4):6$ = CHR$S (34) :0P$S = 

"OPEN" :WR$S = "WRITE":DL$S = "DELE 
TE":CL$ = "CLOSE'":EX$ = "EXEC":HK1 
= "KxPH#TL":K2$ = "KkPH#T2":CHS = 

"PRINT" + G$ + CHRS (4) + G$ + 

110 ZERO$S = "O" + CH$ + G$ + OP$ + X$ + 
1,D*" + XD$S + G$ + ":" + CH$ + G$ 
+ WRS + X$ + G$ + “":POKESS,55:LIS 
T" + LI + ":" + CH$ + G$ + CLS + 

GS + ":" + CH$ + G$ + EX + K2$ 
+ CD$ + G$ + ":END" 

200 PRINT D$OP$Ki$CD$: PRINT DSWR$SK1S: 
PRINT "LOAD'N$",D"'ND$: PRINT ZERO 
$: PRINT "RUN": PRINT D$CL$ 

500 PRINT D$OP$K2$CD$: PRINT D$SWRSK2$: 
PRINT "LOADCAPTURE": PRINT "RUN3O 
O": PRINT D$Ci$ 

500 PRINT D$EX$K1$CD$: END 

900 PRINT «=: PRINT CHR$ (4)"DELETEK%xP#T 
1°: PRINT CHR$ (4)"DELETENR*P#T2" 
: GOTO 10 

999 END 

1000 TEXT : HOME : COLOR= 10: VLIN 0,46 

AT O: VLIN 0,46 AT 59: HLIN O,39 
AT ©: HLIN 0,59 AT 46: VTAE 5: H 
TAE 5: POKE 55,56: POKE 52,2: POK 
E 54,2: POKE 35,22: HOME : RETURN 


10Q D$ = 


2000 HTAE 28 - 
RETURN 


LEN (T$) / 2: PRINT T$: 
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Logiciel graphique en Pascal 


Généralités 

Dans le précédent numéro de Pom's, 
nous avons vu comment créer des des- 
sins sur une matrice 15*15 en graphi- 
que HR. et conserver ceux-ci dans un 
fichier disque. Aujourd’hui, nous allons 
créer un langage de programmation 
« graphique interactif », langage per- 
mettant de créer, lister des program- 
mes graphiques et bien entendu les 
exécuter et les conserver. 


Dans ce présent article, nous appelle- 
rons texte la chaîne de caractères 
représentant le programme, dessin les 
dessins H.R. 15*15 et planche la page 
graphique complète. 

Chaque texte représente une figure 
graphique plus où moins complexe et 
porte un nom donné au moment de sa 
rédaction et nécessaire ensuite pour lis- 
ter ou exécuter ce texte. Le texte lui- 
même est une chaîne de caractères (80 
caractères maximum) ; un fichier per- 
met de ranger 15 chaînes de ce type, 
donc 15 programmes différents qui 
pourront s'appeler les uns les autres ; 
par ailleurs, il sera toujours possible, 
lors de l'exécution d’un dessin, de char- 
ger un nouveau fichier de 15 textes. 


Syntaxe du programme 


Elle est la suivante : 
{instruction], [instruction], [instruction]. 


Chaque instruction est séparée de la 
suivante par une virgule, le texte 
devant se terminer par un point. Noter 
que lors de la rédaction du texte, un 
retour chariot peut être inclus après une 
virgule pour faciliter l'écriture et la lec- 
ture en 40 colonnes. Les instructions 
comportent une lettre ou un signe 
décrivant la fonction à réaliser, éven- 
tuellement un signe + ou —, puis un 
chiffre de O à 255 ou une chaîne de 
caractères. 


Les insuctions sont : 


D + : crayon à blanc (nécessaire pour 
dessiner). 

D— : pas de crayon (déplacement 
sans écriture). 

A+ n : avance le crayon de n. 

A—n : recule le crayon de n. 

T+n : tourne de n degrés dans le sens 
inverse des aiguilles d’une montre. 
T—n : tourne de n degrés dans le sens 
des aiguilles d'une montre. 





Px/y : positionne le crayon en x,y — 
le / s'inscrit seul lors de l'édition. 

Z: éteint le crayon (équivalent à 
D—) ; positionne le crayon au centre 
de l'écran et le tourne vers la droite. 
C+n: place le caractère n de 
SYSTEM.CHARSET sur l'écran, le 
coin inférieur gauche du caractère à la 
position du crayon. Le signe + inscrit 
un caractère normal, le — en inversé. 
S + (chaîne) : place la chaine de 
caractères sur l'écran à la position du 
crayon. Même signification du + ou 
du — que pour C. 

> ne nom » : prend le dessin numéro 
n du fichier de dessin « nom » et le 
place sur l'écran à la position du 
crayon. 

-<nomfigure- : prend dans le fichier 
texte en cours le dessin « nomfigure » 
et l'exécute. 

Rn ([inst], [inst].) : répète n fois les 
fonctions entre parenthèses ; l'arrêt de 
répétition est obtenu en tapant un 
point, les parenthèses s'inscrivent seu- 
les lors de l'édition. A noter qu'une 
répétition peut contenir une autre répé- 
tition. 

In : est un incrément, n un facteur 
multiplicatif n’agissant que sur les 
déplacements et non sur les angles ; 
par exemple 12,A + 15,7 +60 avance 
le crayon de (2 x 15} = 30 et le tourne 
de 60 degré. Le facteur In est automa- 
tiquement incrémenté de 1 à chaque 
passage dans une boucle : exemple la 
figure nommée CARRE. 
D+,R4(A+30, T+90.. 

et la figure MULTIPLE 

D—, P10/10, 12, R3 (:CARRE }. 


le curseur étant passé en 10 x 10, fac- 
teur de répétition à 2, donc le premier 
carré fera 60 x 60, le suivant 90 x 90 et 
le troisième 120 x 120. 


Chaque figure, une fois définie, est 
conservée dans un fichier sur le disque. 


Le programme 


Il utilise les facilités d'analyse de syntaxe 
et de récursivité du PASCAL. 


Ce programme pourra avantageuse- 
ment être associé en un seul bloc avec 
le programme de graphisme de 
Pom’s 5, si bien que lon aura en 
même temps toutes les possibilités sous 
la main. 


Les procédures PRENINFO, PREN- 
CAR, PRENCHAINE, eic., ont déjà 





Miche! Crmont 


été définies et seront avantageusement 
incluses dans la librairie, ce qui libérera 
de la place pour le texte en cas de 
développement ultérieur. 


Les fonctions ECRIMAGE et LiRI- 
MAGE sont dues à un de nos lecteurs, 
M. Devernay ; elles permettent de 
transférer la page graphique sur le dis- 
que et vice versa sans occuper de buf- 


fer supplémentaire grâce aux procédu- 
res BLOCKREAD et BLOCKWRITE. 


La procédure OPENLIST ouvre la liste 
de 15 chaînes programme et la laisse 
en mémoire : éventuellement, si la liste 
n'existe pas, cette dernière est créée. 


La procédure GETINF renvoie le 
numéro de fichier correspondant au 
nom d'un texte. Le fichier ne compor- 
tant que 15 textes programme au 
maximum, aucun tri n'est fait à ce 
niveau et la recherche est purement 
séquentielle. 


La procédure GETINS : renvoie une 
chaîne de texte programme complète 
et utilise AJPM (ajoute + ou —) quine 
permet de rentrer au clavier que + ou 
—. AJBIT qui ne garde que ies valeurs 
de 0 à 255 et AJCHAINE qui prend 
une chaîne de caractères. 


La chaîne de texte en cours est toujours 
pointée sur le caractère à entrer par la 
variable INDEX déclarée globale afin 
de ne pas être influencée par les appels 
récursifs ; la procédure GETINS elie- 
même gère la syntaxe de chaque ins- 
truction et évite toute erreur de frappe 
au clavier. 


Le premier caractère de l'instruction est 
filtré entre tous les caractères possibles 
et la commande est placée dans la 
chaîne à la position de INDEX. 


La syntaxe est ensuite guidée par l'ins- 

truction CASE. Pour A, T et C, obliga- 

tion d’entrer + où — suivi d’un chiffre 

entre O et 255. 

Pour D, donner + ou —. 

Pour {, un bit 

Pour S, un signe puis une chaîne de 
caractères (ici limitée à 20 
caractères). 

Pour P, deux bits successifs. 

Pour >, un bit puis le nom du fichier 
disque. 

Pour : le nom de la figure. 

Enfin, pour R,un bit puis appel récursif 
à GETINS. 


L'instruction étant totalement chargée, 
obligation d'entrer une virgule pour 
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l'instruction suivante ou un point si l’on 
a terminé ; la suite d'instruction dans 
une boucle R doit elle-même se termi- 
ner par un point. 


Le système gère lui-même certains ter- 
minateurs, par exemple après la frappe 
de Px le signe / apparaît en sépara- 
teur ; après le Rn apparaît automati- 
quement une parenthèse gauche, et 
après la frappe du point la parenthèse 
droite correspondante. La frappe des 
lettres de commande et des signes ne 
nécessitent pas la frappe du RETURN. 
Par contre, il faudra taper ce dernier 
pour valider les chaînes de caractères 
ou les entiers. 


A noter que, lorsqu'un RETURN suit 
une virgule, il est gardé dans le fichier, 
ce qui permet une écriture et une lec- 
ture plus agréables des textes à l'écran. 


La procédure EDITE initialise le nom 
d'un texte à rentrer dans le fichier, 
cherche une place vide dans le fichier, 
initialise une chaîne de 80 espaces, 
l'envoie à GETINS pour prendre le 
texte du programme puis enregistre la 
chaîne de caractère et son nom dans le 
fichier. 


Les procédures LIRE et LITINSTRUC 
sont calquées sur EDITE et GETINS : 
elles sont utilisées pour lire la chaîne 
texte tout en respatant la syntaxe 
d'éciture. La procédure CATALOG 
permet de lister les textes du fichier 
LISTE en cours et éventuellement 
d'effacer un texte caduc ou que l'on 
veut réécrire. La procédure EXECU- 
TION place la variable IND à 1, début 
de la chaîne de caractères et exécute le 
texte PJET grâce à la procédure REA- 
LISE : cette procédure, à patir de la 
syntaxe du langage, effectue les diffé- 
rentes fonctions prévues sur la page 
graphique. 

À noter : 


— la récursion introduite par R qui 
appelle REALISE avec la chaîne d’ins- 
truction situées jusqu'à la dernière 
parenthèse fermante, ce qui permet à 
un Répète d’être à l’intérieur d’un autre 
Répête ; 


FROGRAM TORTUE; 


USES TURTLEGRAFHIC; 


CONST NELISTE =15 
TAÏLLE =14 
VOL. EE D 
LONGFROG =80 


— la récursion introduite par : 
«nom» qui rappelle EXECUTION 
pour le texte « nom ». On remarquera 
que pour À le déplacement est MOVE 
{x + INC). INC étant l'incrément, ce 
demier ne pourra être modfié que par 
une nouvelle valeur de [. Si l'on désire 
qu’à la sortie des boucles INC retrouve 
automatiquement son ancienne valeur, 
# faudra déclarer INC dans EXECU- 
TION et introduire INC:= 1 dans le 
corps de la procédure avant l'appel de 
REALISE. 


Le programme principal place le menu 
à l'écran et permet de choisir les diffé- 
rentes options. Certaines fonctions 
agissent au niveau des textes (1,2,3,4 ) 
et ne sont actives que si la ligne 
——-—TEXTES— ‘8 nomme un 
fichier. Pour créer ou charger un 
fichier, il faudra donc appeler la 
fonction 1 et nommer ke fichier ; ce 
fichier sera lu ou créé et son nom appa- 
raîtra entre les crochets. A partir de ce 
moment, 2 permettra d'éditer une ligne 
supplémentaire de texte, 3 de lire un 
texte et 4 de lire le catalogue des textes 
de ce Gchier. 


La deuxième partie, intitulée —— 
GRAPHIQUES ——, permet : 

5 : effacement de la page graphique. 

6 : visualisation de la page graphique, 
le RETURN ramène au menu. 

7 : sauve la page graphique sur le dis- 
que. 

8 : lecture d'une page graphique du 
disque. 

9 : exécute un texte. 

0 : sortie du programme. 


Modifications éventuelles 


1. Tous les fichiers : textes. dessins, 
planches sont sur le disque du lec- 
teur 2 ; si l'on préfère travailler sur le 
lecteur 1 il suffit de remplacer dans les 
déclarations VOL=’#5S: par 
VOL =’#4:. 

2. Si l'on désire des programmes plus 
longs, on pourra remplacer 












LONGPRO =80 par LONGPRO = X 
(X < 255). 


3. Si l'on désire un fichier plus long, il 
suffit de changer la constante de 
NBLISTE. 


Extensions envisageables 


1. Ajouter un véritable éditeur de ligne 
avec conmecbons. 


2. Ajouter d’autres fonctions ; pour ce 
faire : définir le caractère de la fonction 
et l'introduire à PCAR, écrire les lignes 
correspondantes dans les CASE de 
GETIND, LITINSTRUC et REALISE. 


3. Écrire des procédures PASCAL 
spécifiques pour certains dessins diffici- 
les à réaliser par ce programme, par 
exemple : arcs de cercle, polygones 
réguliers, etc., et placer les lignes cor- 
respondantes au menu. 


4. Écrire en instruction immédiate sur 
la page graphique en acceptant des 
caractères à la place du RETURN. On 
poura utiliser la même syntaxe, un 
déplacement point par point, ou les 
deux. 


5. Utilisation de couleurs pour le fond 
ou les dessins. 


6. Définition de fenêtres. 


7. Rotation, agandissement de des- 
sins, déplacement de dessins dans la 
planche. 


8. … À vos claviers. 


Attention ! 


Afin de ne pas surcharger le pro- 
gramme, les contréles d'erreurs ont été 
limités ; en particulier, 1 n’y a pas de 
contrôle de sortie de la page graphi- 
que, celui-ci peut être ajouté à la fonc- 
tion À et à Y pour P. Lors de la rédac- 
tion de la chaîne texte, le contrôle de 
longueur est un peu frustre et intervient 
au caractère 77 avec retentissement de 
bips sonores ; ceci suffit sur les instruc- 
tions courtes, par contre le nom d'une 
figure peut être coupé si l'on n'y prend 
garde. 


S'iL VOus PLAÎT … 
DÉSSINE -MOr AVEC 
UNE TORTUE 
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TYFE  CHOIDECA =SET OF CHAK; 


COMMANDE. =KECORD 

NON SSTRINGC101; 

INSTRUC SSTRINGELONGFRKOG] 

END ; 
MEMOIRECRAN =FACKED ARRAYCD,,81911 OF 0..255; 
FORME. =FACKED ARRAYECO0,4TAILLE,0,4TAILLES OF EOOLEAN: 
VAR HOME ,EËS,EFL,EFE, SON, INV, NORM, CR: CHAR; 

CA $ CHAR; 
CON $ COMMANDE ; 
ISTSTLE; FILE OF ARRAYCL,,NELISTET OF COMMANDE ; 
INDEX,I,INC SINTEGER; 
NCOM : NIMA STRING; 
FROUET STRING; 
ECRAN RECORD CASE HOOLEAN OF 


FALSE : (ADRESSE INTEGEK) $ 
TRUE _ $ C(FOINTEUR $ AMEMOIRECRAN) 


READ(KEYEOARD ,; SORT ) 
INTIL EOLNCKEYEOARD ) 
END, 


END; 
FHOTO ETES) 
ALEUM +FILE OF FORME; 
sx) 
(x FROCEDURES CENERALES HAEITUELLES x) 
UK #x) 
FROCEDURE FRINFO; 
ÉEGIN 
HOME :=CHR(12) $ EFL!:=CHR(29)$ ES ?=CHR(8); CR ?:=CHR(13); 
SON !=CHR(7)$ INV:=CHR(1i8)$ NORM!=CHR(20); EFB:=CHR(11) 
END; 
54 
FROCEDURE FRENRETURN; ce 
VA: SORT  :CHAR; Ë 
ÉEGIN 3 
REFEAT s. 
En] 
Le 


LIU 
DUPTER 


FUNCTION FRENCARCEONSET $ CHOIDECA) : CHAR; 
VAR CH s CHAR; 
EON  EOOLEAN; 


RE AD CKEYEOARD , CH) ; 
IF EOLNCKEYE@ARD) THEN CH? =CK; 
ÉONS=CH IN EONSET; 
IF NOT EON THEN WRITECSON) 
ÉLSE,TF CH INC" ?.,,7%71 THEN) HREPTE(CHO 
UNTIL ON; 
FRENCARK*%=CH 
END ; 


FUNCTION OUT *EOOLEAN; 
ÉEGIN 

OUI : “FRENCAR(E/0’,°N°71) IN E‘0°3 
END ; 


NE ER 
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FROCEDURE MESSAGE(CYSINTEGERSS3 STRING); 
EEGIN 

GOTOXY(0,Y)$HRITE(S,EFL) 
END ; 


FROCEDURE ALARME(CS4 STRING); 

EEGIN 
GOTOXY(0, 1); HRITE(SON,EFE); 
MESSAGE(10,S); 
MESSAGE(12, FAITES <RETURN* ‘); 


FRENRETURN 
END ; 
FROCEDURE FRENCHAINE (LONGMAX:INTEGERS$BONSET : CHOIDECAS VAR Si STRING); 
VAR Si #STRINGC1]; 

CONT STRING; 

FEGIN 

SANT 

CONT:=""; 

REFEAT 


IF LENGTHCCONT)=0 THEN S1C113:FRENCARCEÉONSET+CCRI) 
ELSE IF LENGTHCCONT)=LONGMAX THEN SIiLC11%=FRENCARÇECR,ES1) 
ELSE S1C1]1:=FRENCAR(EONSET+CCR,ES1); 
IF S1C11 IN EONSET THEN CONT:=CONCAT(CONT,S1) 
ELSE IF SiLC1]1=ES THEN 
EEGIN 
WRITE(RS,' ’,ES); 
DELETECCONT,LENGTHÇCCONT),1) 
END; 
UNTIL SilC1)=CR; 
IF LENGTHCCONT)<70 THEN S$=CONT 
ELSE HRITE(S) 


END; 
FROCEDURE ENTIERCLONGMAXSINTEGERS VAR S$INTEGER) $ 
VAR Si :STRINGC1]; 

L *:INTEGER»; 


CONT STRING; 
OKSET $CHOIDECA; 
EEGIN 
OKSET:=LC/0/,,/9"/15S1%=" ’$CONTs: ="; 
REFEAT 
IF LENGTHCCONT)=0 THEN S1LC11$=FRENCARÇCOKSET+ECCRI) 
ELSE IF LENGTHCCONT)=LONGMAX THEN S1L11:=FRENCARCECR,ES1) 
ELSE S1C11%=FRENCARCOKSET+CCR, ES1); 
IF S1L11 IN OKSET THEN CONT:=CONCAT(CONT,S1) 
EUSE, TF OSTPTISÉS MEN 
EEGIN 
WRITE(ES,° ’,ES); 
DELETE(CCONT ,LENGTHCCONT);1) 
END; 
UNTIL SilCi1=CR; 
LF LENGTHCONT)<+0 THEN 


BEGIN 
S:=0; 
FOR 1t=1 T0 LENGTHICONT) D9 
BEGIN 
St=Sx103S:=S+(ORD(CONTCI1)-ORO(/0/)) 
END; 


10 
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En 





END ELSE WRITE(S) 
END $ 
Cx!x) 
(x LECTURE, ECRITURE DE LA FAGE ECRAN SUR DISQUE x) 
(XX) 
FUNCTION LIRIMAGECIMAGE $ STRING) S EOOLEAN; 
EEGIN 
CXSL-X) 
RESET(CFHOTO, IMAGE); 
IF JIORESULT<:0 THEN LIRIMAGES=FALSE 
ELSE ÉECGIN 
LIRIMAGE { =ELOCKREAD (FHOTO,ECRAN.FOINTEURS,16)=1té6; 
CLOSE (FHOTO) 


END 
CHHI+X ) 
END; 
FUNCTION ECRIMAGECIMAGE: STRING) EOCOLEAN; 
ÉEGIN 
(XSI-X) 
RENRITE (FHOTO, IMAGE) ; 
IF JIORESULT<:0 THEN ECRIMAGE:=FALSE 
ELSE EÉEGIN 
ECRIMAGE ; =ELOCKWRITE{FHOTO,ECRAN.FOINTEUR ;, 16) =16;$ 
CLOSE(FHOTO, LOCK) 
END 
(x L+Xx) 


END ; 


FUNCTION FRENIMACVAR IMAGES STRING) SEOCLEAN; 
ÉEGIN 
MESSAGE(22;, NOM DE LA FLANCHE 5°); 
FRENCHAINEC{0,C'A’,./2’1,IMAGE); Le 
IF IMAGE:’' THEN FRENIMA:=FALSE té 
ELSE KEGIN je 
FRENIMAS=TRUE; br 
IF FOS(’/5/,IMAGE)=0 THEN IMAGE S=CONCAT(VOL; IMAGE) ; = 
IF FOS(’,’,IMAGE)=0 THEN IMAGES =CONCAT(IMAGE , ‘ ,IMA”’ ) Eù 
END 
END; 
CxiX) 
(x FROCEDURES DE GESTION DES. FICHIERS TEXTES x) 
(X#X ) 
FROCEDURE OFENLISTE(CSTiSTRING); 
VAR I $INTEGER; 
L $ COMMANDE $ 
EEGIN 
CX$SL-X) 
CLOSECLTSTE); 
KESET(LISTE,ST); 
IF JIORESULT<>0 THEN 
HEGIN 
CLOSE(LISTE); 
REWRITE{LISTE,ST)$SEEK(LISTE,0); 
L.NOMi=’/’$L,INSTRUC!=’";$ 
FOR Ti=1i T0 NELISTE DO LISTEACI2i:=L 
ÉUMGIAESME) 
CLOSE(LISTE , LOCK) ; 
RES ET GSITIE"* SIT 
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END ; 
CXSTL+X) 
END; 


FUNCTION GETIND(NMS STRING): INTEGER} 
VAR I°INTEGER}; 
EEGIN 

Ti=1;GETIND:=0; 


IF NM=LISTEACII,NOM THEN GETIND:=T 
END ; 


FROCEDURE GETINS{VAR INS 3? STRING) ; 
VAR Ci * CHAR; 


FROCEDURE AJFM}$ 
ÉHÉGIN 


END ; 


FROCEDURE AJETT }; 
VAR EIT $ INTEGER; 
ÉEGIN 
REFEAT 
ETT:=0; 
ENTIER(S,EIT); 


UNTIL EIT:255; 
INSCINDEX14=CHRÇCEHIT) $ INDEX: =INDEX+1 
END ; 





Le] FROCEDURE AJCHAINE(CNES INTEGER) ; 
‘#4 VAR S STRING; 
5 ÉEGIN 
ÿi ef 
Z FRENCHAINE(NE,C'/À’,,°2°1,5S); 
ke IF INDEX+LENGTH(S) LONGFROG-3 THEN 
ë EEGIN 
ë MOVELEFT(SLC11,INSEINDEX1, LENGTH(S ) 4}; 
INDEX $=INDEX+LENCGTH(S) 
# END: 

END ; 

FEGIN 
REFEAT 


IF INDEX>75 THEN HRITE(SON, SON, SON) ; 
CIS SRRENCARLEMA,/ D, D, 17,77, CPE 


WHILE CNM£ÆSLISTENETII,NOM) AND (IENELISTE) DO T°=J+1; 


INSCINDEX3:=FRENCARILC'/+,/-71)$INDEXS$=INDEX+1 


IF EIT:25$ THEN HRITECES,ES,ES, ” f,HS+ES,ES); 


AE 2%, RS, 2 ER IDE 


IF Ci=CR THEN KRITELN ELSE HEGIN INSEINDEX1:=C1; INDEX: INDEX +1 END ; 


CASE Ci OF 
A 
EN 
C'SÉEGIN AJFMS;AJEIT END; 
‘D’ AJFNM; 
‘L'SAJEIT; 
‘S’%HEGIN AJFM;AJCHAINE(Z20) END; 
*F'SBEGIN AJEITSWRITE(’/')$AJEIT END; 
/#/4BEGIN AJEIT/$AUJCHAINE(10) END; 
‘$’#AJCHAINE(Ci0); 
R'SEEGIN 


s 


ES 
12 
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AJEITSWHRITE(C’C’)$ INSCINDEX13%="’("’$INDEXS =INDEX+1; 
GETINS(INS) ; 
HRITE(’)/)$INSCINDEX15=")"$INDEXS=INDEX#: 
END ; 
END ; 
LEN CAF CRONMHENMEMS=RRENCAIRGEE, 0, 2,24) 
INSCINDEX15=C1; INDEX: =INDEX+1; 
UNTIL (C1=’,7) GK CINDEX:LONCGFROC-3) ; 
IF INDEX:LONGFROG-3 THEN INSCINDEX-115=","; 
END ÿ 


FRICEDURE EDITE}$ 


VA NOMFE #STRINGLI01; 
INDICE, TL? INTEGER$ 


L. $ STRING 601$ 
ÉEGIN 
PAGE COUTFUT)} ; 
Lixl} 
REFEAT 
IF LISTEALII,NOM=’ THEN INDICES=T;$ 
L'=1+1; 


UNTIL {INDICE“:0) OR (I=NELISTE+1); 

IF INDICE:“0D THEN EEGIN ALARMEC’/FICHIER FLEIN,,,/)$EXIT(EDITE} EME; 

MESSAGE(0, ’EDITIONS FIGURE ’);KRITECINDICE,’ DE ‘’,NCOM); 

MESSAGE(7, NOM DE LA FIGURES"); 

FRENCHAINE(10,C’A’.,.,/7’/1,LISTE"CINDICE], NOM) ; 

INDEX $=1; 

CXER-X) 

LEVI1$=CHK(80); 

FILLCHAR(C11,80,° ’); 

CXxSR+X) 

GOTOXY(0,10); 

GETENS(L)$ 

LISME*CINDICEMNTINSTRUCS=IES 

SEEK (LISTE , 0) $FUT(LISTE ) $ CLOSE {LISTE ; LOCK) $RESET(LISTE, MCUM) 
END; 


D 


FROCEDURE L.ITINSTRUC(S:STRINC »: ; 
VAR C1 3 CHARS 
BEGIN 
REFEAT 
C1$=SCINDEXI; WRITE (C1) $ INDEX 5 =INDEX+1; 
CASE C1 OF 


AO, T2, 
AE *FEGIN 

WRITE (SCINDEX) ; INDEX $=INDEX+1$ 

WRITE (ORDCS£CINDEX 1) ) $ INDEX $=INDEX#+1 

END ; 

AD #EEGIN WRITE(SEINDEX1)$INDEX:=INDEX+1 END; 
At #EECGIN WRITE(ORD(SECINDEX 1) } ; INDEX #INDEX+1 END: 
MES *FEGIN 


HRITE (ORD (SC INDEX1) } ; INDEX: =INDEX+1; 
HRITE (’/*,ORD (SCINDEX1) } ; INDEX 3 “INDEX+1 
END; 
1S’,'3’2REPEAT 
C1:=SCINDEXI;HRITE(C1) ; INDEX :=INDEX+1 
UNTIL (SCINDEXI IN L’,/,/,°1)3 
14 BEGIN 
HRITE (ORD (SC INDEX1) > ; INDEX: =INDEX+1 ; 
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REFEAT 
C1:=SCINDEX]1;HRITE (C1) $ INDEX: =INDEX+1 
UNTIL  GSEÆENDEXAIE TN, P2,2,2,21 
END ; 

AR $EFEGIN 
WRITE(ORD(SECINDEX1) } $ INDEX: =INDEX+1 ; 
WRITE(CSCINDEX:);INDEX:=INDEX+1; 
LITINSTRUC(S); 

WRITE CSCINDEX1) $ INDEX :%=INDEX+1 
END ; 
END 
UNTIL C1=’,”; 
END ; 


FROCEDURE LIRE; 
VAR  INDICESINTEGER}$ 
NM STRING; 
EÉECGIN 
FAGE (OUTFUT ) $MESSAGE (0, ‘LECTURE $ ‘ } ÿWHRITE{NCOM) ; 
MESSAGE(/; NOM DE LA FIGURE: °); 
FRENCHAINE(10,C/A’.,°/2Z°71,NM); 
INDICE =GETIND (NM) ; 
GATOXY{0,10); INDEX:=1; 
IF INDICE“#>0 THEN LITINSTRUC(LISTEACINDICE]T, INSTRUC) 
ELSE MESSAGEX10;,’N’'EXISTE FAS’); 
MESSAGE(23,’/TAFEZ LE <RETURN% ‘) $FRENRETURN; 
END ; 


FROCEDURE CATALOG; 
VAR LSINTEGER: 
CiCHAR; 
ÉEGIN 
FAGE (OUTF'UT) $MESSAGE (0, CATALOGUE $ ” } $WHRITE (NCOM) ; 
GOTOXY (0,4); 
FOR Ti=1 TO NELISTE DO HRITELN(ISZ,’ —’,LISTE CI], NOM); 
MESSAGE(23,'TAFEZ ECFFACE OÙ “RETURN* ‘’)}; 
#=FRENCAR(EC’'E’,CR1); 
TEMC=AE CMEEN 
ÉEGIN 
MESSAGE(Z23, /NUMERO® ’);3I*=D0;ENTIER(Z,I); 
IF (T£=NELISTE) THEN 
ÉEGIN 
LESTEN CI: NOM EP IEES MEN PEIMENSMARUCSE= 0" 
END 
END 
END ; 





FROCEDURE FRENLISTE ; 
ÉEGIN 
FAGE (OUTFUT ) ; 
MESSAGE(S, ‘NOM DU FICHIERS’); 
FRENCHAINE(10,C’/À’,,/Z°71,NCOM) ; 
IF NCOM=’* THEN EXIT(FRENLISTE) ; 
TE POSE SNCON)=D THEN NEDMS =CDNCAT LODL : NEO 5 
IF FOS(’,’,NCOM)=0 THEN NCOM:=CONCAT (NCOM, ’ ,COM”); 
QFENLISTE (NCOM) ; 
END; 
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(x EXECUTION D’UN TEXTE SUR LA FAGE GRAFHIQUE x} 
CX#X) 

FROCEDURE EXECUTION(FUET STRING) }; 

VAR INDICE,IND °INTEGER; 


FROCEDURE REALISE(S STRING) ; 
VAR Ci,SI : CHAR; 


pas STRING; 
I,REF, 
LIM,CT,NSINTEGER}; 
FEGIN 
REFEAT 
C1=SCINDI;IND?=IND+1; 
CASENCINDÉ 


A’SCASE SCINDI OF 
?+'$ÉEGIN 
IND?=IND+1; 
MOVE (ORD(SCIND1)XINC) $IND?=IND+1 
END ; 
CEE GTN 
IND=IND+1; 
TURNCIE0) ; 
MOVE ( ORD (SCIND 1) xINC) $ IND=IND+1; 
TURN(-180) 
END 
END ; 
*T'SEEGIN 
SI$=SCINDI;IND?=IND+1; 
IF SI=’+’ THEN TURNCORD(SCINDI)) ELSE TURN(-ORD(S£IND1)); 
IND=IND+I 
END ; 
fT'SÉEGIN INCS=ORD(SCIND1])INDS=IND+1I END; 
/C'4ÉEGIN 
SI? =SCIND1; IND$=IND+1; 
IF SI=’+’ THEN CHARTYFE(10) ELSE CHARTYFE(S); 
WHCHARÇSECIND1) ; IND?=IND+1 
END; 7: 


Trucs et astuces 


Quelquefois, votre disquette se centre mal et 
vous obtenez une fatidique 1/0 ERROK. Beau- 
coup d'entre elles pourront être évitées si. lors 
du premier accès à une disquette, vous ne fer- 
mez la porte du lecteur qu'une fois la lampe 
témoin allumée. 


En effet, la disquette se centre mieux dans ce 
cas-là. 

Enfin. si vous voulez éviter les ennuis. n'oubliez 
quand même pas que la disquette est un sup- 
port fragile, et que la tête de lecture est appelée 
à travailler très près de la surface. 


Un de nos lecteurs à ainsi pu constater que, 
quand de la confiture tombe sur une disquette, 
ce n'est bon (pas la confiture, bien sûr) ni peur 
la disquette (on s’y attendait} ni pour le lecteur 
(ça, c'était moins évident). I] a fallu déconfiturer 
le lecteur en atelier. 
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MANN TRESNETERArT 


t 
(22 








*D’?FEGIN 
SI $ =“SLIND 1; IND:=IND+1; 
IF SI=’+7 THEN FENCOLORCHHITE) ELSE FENCOLOR(NONE ); 
END; 


‘Z'#FBEGIN 
F'ENCOL.OR (NONE ) ; 
TURNTO(0); 
MOVETO(140,96) 
END; 
*F'SEÉECGIN 
MOVETO(ORD(SCIND1) ,ORD(SCIND+11)); 
INDS=IND+2 
END; 
*S’4FECIN 
ST: “SCINDI$IND:=IND+1; 
IF SI=’+ THEN CHARTYFE (10) ELSE CHARTYFE ($);$ 
C1$=SCIND]; 
REF'EAT 
WCHAR (C1) $IND*=IND+1 C1 =SCINDI 
UNNTEÈNELMENES,7E, Te 
END; 
*FEGIN 
2 =SCAN(11,=-",",SCINDI); 
IF I=11 THEN IS=SCAN(11,=",",SCIND1); 
IM:=COFYCS, IND, I) $ IND:=IND+I; 
EXECUTION(IM) 
END; 


‘>/4$ÉECGIN 

Ni=ORD(SCIND1) SIND: =IND+1; 

[$=SCAN(11,=’, / , SCINDI}; 

IF T=i1 THEN IS=SCAN(1I1,=",",SCIND1); 

IMS=COFY(S,IND,I)$INDS=IND+I; 

IMS=CONCAT(UOL.,1M, ’.FIC’)$ 

CXSL--x) 

RESET(ALEUM, TIM); 

IF IORESUHLT:0 THEN 

EEGIN 
SEE K(ALEUM ; N) $GETCALEUM);$ 
DRAHELOCKCALEUMA,2,0,0,15,15;, TURTLEX; TURTLEY, 10) 

END; 

CLOSE. ( AL.EUM ) 

Cx$SL+x); 

END; 


R'S4EFEGIN 
REF: # =ORD (SCIND1) ; IND :=IND+2; 
$ =IND; 
REFEAT 
LE SETI=)ATAENNIÈTNHET; 
s=1+1 
UNTIL (SCI]1=’ ’) OR (I=80); 
IM3=COEY CS 4 IND:LIM-IND) $CTS=IND: 
FOR I°=1 TO REF DO 
FEGIN 
IND:=1; 
IF INC>1 THEN INCI=INC+1; 
REALISECIM) 
END; 


++ 
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INDi=LIM 


END ; 
END 
UNTEL CIE 
END; 
ÉEGIN 


INDICE =GETIND(FJET)SINDi=1; 

IF INDICE=0 THEN EXIT(EXECUTION) ; ; 

REALISE(LISTEACINDICE]I,INSTRUC) 
END ; 


FEGIN 
FRINFOSNCOMS =" ’S$NIMAIS =’; 
ECRAN, ADRESSE: =8132; 
REFEAT 
FAGE COUTFUT) ; 
FOR Tizi TO 6 DO 
BEGIN 
WRITEC’/TORTUE ’); 
IF TI MOD 2=0 THEN KRITE(NORM) ELSE WRITECINV) 
END ; 
MESSAGE(S, ’/-—— TEXTES ==) SHRITECINV, ’ CL’ ,NCOM, ’ 1° ,NORM) ; 
GOTOXY(10,7)$WRITE(’LC11 CHANGE DE FICHIER’); 
GOTOXY(10,8)$WRITE(’LC21 EDITE UNE LIGNE’); 
GOTOXY(10,9)$WRITE(’/031 LECTURE D’*’UNE LIGNE’); 
GOTOXY(10,10)$WHRITE(’C41 CATALOGUE’); 
MESSAGE(12,’-- GRAFHIQUES —--*); 
GOTOXY(10,14)SHRITE(’C51 EFFACE LA FAGE’); 
GOTOXY(10,15)$WRITE(’C61 VISUALISE LA FAGE’); 
GOTOXY(10,16)/;WRITE(’C71 SAUVE LA FAGE’); -< 
GOTOXY(10:17)$WHRITE(’E81 CHARGE UNE FAGE’); 
GOTOXY(10:18) ;HRITE(’C91 EXECUTE UN TEXTE’); 
GOTOXY(10,20)$WRITE(’[01 QUITTE’); 
GOTOXY(3,22)$WRITE(’OFTION LC 1°’,ES,ES); 
CAS =FRENCAR(L’0’,,/9’1); 
CASE CA OF : 
* 1° SFRENLISTE: 
DÉS TENNCOME-CNUTHENMEDIMES 
23'3IF NCOM<:’’ THEN LIRE; 
‘4!4{IF NCOM<:’'" THEN CATALOG; 
#5'$HEGIN INITTURTLES$TEXTMODE END; 
/6'$ÉEGIN GRAFMODE;FRENRETURNSTEXTMODE END; 
27!'$3IF FRENIMACNIMA) THEN 
IF NOT ECRIMAGECNIMA) THEN ALARME (‘’FAS D’'ENREGISTREMENT ); 
/8’3IF FRENIMACNIMA) THEN 
IF NOT LIRIMAGECNIMA) THEN ALARME(C’FAS DE LECTURE’); 
/9'{ÉEGIN 
MESSAGE(22,’NOM DU TEXTE i°’);$ 
FRENCHAINE (10,LC/A’.,:/2’1,FROJET); 
IF FROJET<:’’ THEN 
EEGIN 
MESSAGE(22,'/DESSIN ’)SWRITECINU,FROJET,NORM,’ EN COURS’); 
INC#=1$;EXECUTION(FROJET) 


DSL MS RER 


END 
END ; 
END 
UNTIL CAx’0" 
END 
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Mouvements : 


LA GESTION DE FICHIER TOUS AZIMUTS 


Un seul programme, un très grand 
nombre d'applications 

Avec ce logiciel, votre APPLE dis- 
posera de pouvoirs exceptionnels: 
vous vous en servirez pour suivre 
vos clients, pour établir vos prévi- 
sions, pour mettre à jour vos tarifs, 
pour gérer vos commandes, vos arti- 
cles en stocks, pour calculer la paie 
de vos employés où simplement 
pour tenir votre collection de tim- 
bres ou de livres. 


Une très grande facilité de mise en 
œuvre 

Nul besoin deconnaître l'informa- 
tique, nu! besoin d'utiliser un voca- 
bulaire de spécialiste; pas de 
codifications inutiles; les instruc- 
tions sont simples, naturelles et en 
français. 


Définissez vous-même votre modèle 
de fichier 

Chaque rubrique devient automa- 
tiquement un critère de recherche et 
de classement: vous pourrez à tout 
moment redéfinir votre modèle, 
ajouter ou retrancher des rubriques 
sans avoir à réécrire les données. 


Retrouver vos dossiers de multiples 
façons 

Vous pouvez les rechercher à par- 
tir de n'importe quelle rubrique, 
retrouver tous ceux répondant à 
certaines caractéristiques selon une 
combinaison de critères (jusqu'à 12 
simuitanément) tels que ‘“égal”, 
“plus grand que”, “plus petit que”, 
“différent”, “compris entre”. 


Faites toutes sortes de calculs et 
profitez de votre imprimante 

Vous pourrez présenter les infor- 
mations de votre choix et les résul- 
tats de vos calculs sous forme 
d'étiquettes ou de rapports (jusqu'à 
13 colonnes}, dans n'importe quel 
ordre alphabétique, numérique, 
chronologique. 


Avec CX Multigestion, vous travait- 
terez très vite et vous irez très loin 

Comparez avec d'autres pro- 
grammes: vous retrouvez n'importe 
quel dossier, vous dressez un état 
combinant classement et sélections 
en quelques secondes; en outre, CX 
Multigestion n'est que le premier 
programme d'une série de logiciels 
de gestion tous compatibles entre 
eux. 


Demandez à votre boutique informatique une démonstration de CX Multigeslion et vous serez vraiment émerveillé ;siellene l'a 
pas en stock, demandez lui de nous appeler au (1) 538.98.87 ou écrivez nous à: CONTROLE X-TourMaine-Monlparnasse, 33, av. 


du Maine - 75755 Paris Cedex 15 


Apple est une marque déposée de Asple Cemputer inc 








Notions de base : 
routine d'INPUT généralisé 


Il y a fort à parier que beaucoup des 
programmes que vous écrivez, où 
envisagez d'écrire, comportent. à un 
moment quelconque, une phase 
d'entrée de données au clavier. Cer- 
tes, une simple suite d'instructions 
INPUT peut réaliser ce traitement, 
mais ce n’est ni la solution la plus 
agréable à l'œil (présentation de 
l'écran au moment de la saisie), ni la 
plus sûre à l'usage (contrôle des 
données entrées). 


Même si vous êtes le seul utilsateur de 
vos programmes, il peut vous être utile 
de disposer d'une routine « d'INPUT 
généralisé » qui assure une gestion cor- 
recte de l'écran et vérifie que les don- 
nées entrées correspondent bien à ce 
qu'elles devraient être. 


Principes généraux 


Pour faciliter l'analyse de la routine pré- 
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sentée ici, précisons les objectifs que 
nous voulons atteindre. 


1. L'écran doit indiquer clairement les 
informations à fournir et assigner à cha- 
cune d'elles une zone de rentrée indivi- 
dualisée. 


2. Il doit être possible de se déplacer 
sur l'écran. vers le haut comme vers le 
bas, pour modifier les différentes don- 
nées avant toute validation. 


3. Le contrôle des données doit s'effec- 
tuer caractère par caractère au moment 
de la frappe (pas de lettres dans une 
information numérique. pas de carac- 
tères de contrôle ou susceptibles de 
perturber les traitements ultérieurs…). 
De plus, la longueur des informations 
ne doit pas dépasser le maximum com- 
patible avec les autres traitements. 


4. Après validation, les données doi- 


vent pouvoir être modifiées ou consul- 
tées facilement. 


x professionnelles ou privées. — | 
Ki C’est un outil complet et pratique à utiliser qui, après un rappet sur 
la comptabilité générale donne des exemples concrets : édition 
des livres-journal, grands livres, balances, bilans, calculs des 
ratios ainsi qu'un programme spécial intéressant l'adaptation 

et la personnalisation du Plan Comptable. 


Envoyer ce Don 
accompagné 

de votre reglemerl à 
PSI. DIFFUSION 


Gérard Michel 


Notre routine repose en conséquence 
sur les principes suivants {se reporter au 
programme BASIC pour identifier les 
variables) : 


1. Chaque information est définie par 
un libellé (LI$), la position du premier 
caractère à rentrer (2V% et ZH#), et 
la longueur maximale de la réponse 
(2LŒ). 


2. La touche RETURN permet de ter- 
miner l'entrée d’une information et de 
passer à la suivante. La touche ESC 
pennet de remonter aux données pré- 
cédentes ou de revenir à la phase de 
traitement précédente. 


3. On distingue trois types de don- 
nées : alphanumérique {type 1), 
numérique {type 2) et date (type 3). 
Chaque information est caractérisée 
par son type (TY%). 


4. Des variables annexes permettent 
de réaliser l'affichage des données pour 


160 pages - 102,00 FF/785,00 FB 


DESIGNATION 











ou, pour la Belgique et 
te Luxembourg, a 
P.S.ILBENELUX 


Téléphone (2) 345.08.50 


(par avion ajouter 8 FF (75 FB) par hvre) TOTAL 


< 


«Tri 
je 


fl « 1< 


yes 
Vrais 8 


#: 
Le 


Un ensemble de programmes portant sur la comptabilité, dédié aux Le 
petites entreprises, professions libérales, artisans, commerçants, bref A 
aux amateurs d'informatique soucieux de la gestion de leurs affaires El 


Es 


3449 rue Saint-Denis 
Montréal Québec H2X3L1 
Tél (514) 8437684 


Ferraz 11 


Madrid 8 
Tél, : 247,30,00 








Pom's n° 6 19 








modification ou consultation (ME. X, 


B%) 


Analyse et utilisation 
de la routine 


Le contréle des données entrées, 
caractère par caractère, conshtue le 
cœur de la routine. Il est assuré par un 
petit programme en assembleur, ce qui 
permet de : 


— faire l'économie de nombreux tests 
en BASIC sur les codes ASCII des 
caractères, tout en accélérant le traite- 
ment ; 


— bénéficier facilement de la lecture 
« active » par la fièche de droite et de 
garantir que les données stockées dans 
les variables sont identiques à celles qui 
apparaissent sur l'écran , 


— illustrer par un exemple simple luti- 
lisation de l'assembleur et son interac- 
tion avec BASIC, ce qui répond aux 
vœux de nombreux lecteurs concernés 
par cette rubrique « Notions de Base ». 


Opérons donc 
à cœur ouvert : 


Dans les mémoires 528 et $29 est stoc- 
kée l'adresse de la première colonne de 
la ligne courante de l'écran (celle où se 
trouve le curseur) dans la page TEXT 
{zone de mémoire où sont rangés les 
caractères qui composent l'écran en 
mode TEXT). L'adresse 528 est ici 
repérée par le symbole ADR. 


En $24 est stockée la position horizon- 
tale du curseur (0 à 39), symbolisée par 


En $9, nous stockerons le nombre de 
caractères entrés (LC). 


$6 (E) servira de « drapeau » au 
BASIC pour une éventuelle remontée 
dans l'écran (touche ESC). 


En $7 (LO), nous rangerons la lon- 
gueur maximale autorisée pour la 
réponse. 


En $8 (TY), stockage du type de 
l'informaton. 


$311 (ZY) est l'adresse de début de la 
zone où l’on stockera les caractères 
entrés au clavier. Cette zone se trouve 
dans une « région » libre de l'Apple 
(5300 à $3CF). On aurait pu stocker à 
partir de $300, ou après la routine elle- 
même, par exemple. 


$FDOC est l’adresse de début du 
sous-programme du moniteur qui 
fait clignoter le curseur et attend 
qu'une touche soit frappée. Après 
exécution, le code-écran du carac- 


tère entré se trouve dans l'accumula- 
teur (vous pouvez vous reporter aux 
pages 44-45 de Pom'’s numéro 4 ou 
à la page 7 du « Manuel de Réfé- 
rence Apple Il » pour avoir la liste 
des codes-écran des différents carac- 
tères. 


$FDED est l'adresse de début du sous- 
programme du moniteur qui affiche à 
l'écran le caractère dont le code-écran 
se trouve dans l'accumulateur. 


Lignes 12 à 16 : nettoyage de la zone 
de stockage ($80 est le code-écran du 
caractère nul). En BASIC, ces instruc- 
tions s'écriraient : 

12 A$="" 

13 X=10 

14 ZYS(X) = A$ 

15 X=X—1 

161F X =@ THEN 14 

Lignes 17 et 18 : E=0. 


Ligne 19 : saisie d’un caractère. Rap- 
pelons que le résultat se trouve dans 
l'accumulateur, d'où l'emploi de l'ins- 
truction CMP dans les tests sur la valeur 
du caractère. 


Lignes 20 et 21 : si c'est un RETURN, 
on saute à la fin de routine (FIN1). 


Lignes 22 et 23 : X set à compter le 
nombre de caractères entrés (à partir 
de O0). SiX = LO, on saute à SUITS. 
Lignes 24 et 25 : si le caractère est une 
« flèche de gauche », on saute à 
RETOUR. 

Lignes 26 et 27 : on a entré un carac- 
tère de trop. La routine-moniteur dont 
l’adresse de début est $FBDD émet un 
« beep » et l’on retourne ensuite à la 
saïsie de caractère. Ainsi, une fois la 


Liste en assembleur 
Lisa 1.5 


1 ORG: $91E6 
k. OEJ +280 
3  ADK LEP AE 

SO CP 

En J2C (a ASS 

(SE EFZ bé 

jé 0! LE (OA 
CAIRN AA: 
SZ EQU +311 
10 GET EQU $FDOC 
Le EU EQU $FDED 
1e LDA +580 
13 LDX LO0 
LA ADÉE:0 STA ZY:X 
LE DEX 
16 EFL DEF'( 
ie LDX 40 
18 STX E 
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DEMI 


SUTTS 


SUTT À 


SUXTZ 


RETOUR 


SUTTS 


SUIT 4 


SUITE 


SUITÉé 


SUITE 


FINI 


JSK 
CMF 
EG 
EF 
ECC 
CF 
BEQ 
ISF 
MF" 
CMF 
ENE 
CF'X 
ENE 
LDA 
STA 
RTS 
CMF 
ENE 
LDA 
JMF 
CME: 
BEQ 
CMF' 
ENE 


588 
RETOUR 
$FE:DD 
DEF'I 
1$9E: 
SAT 
0 
SUATA 
19 

E 


##AC 
SUTT2 
HAE 
SUTTS 
F$AE 
SUTTS 
1:$88 
SUTT3 
AE Q 
SUTTS 


: H 


DÉFHE 


" #99 
SG LATE 


$25 


 SFEHCI 


H 
CADRD 4 Y 
SUTITS 
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longueur maximale atteinte, seuls 
RETURN et la flèche de gauche sont 
acceptés. 


Lignes 28 et 29 : sice n'est pas ESC, 
on saute à SUITI. 


Lignes 30 et 31 : si ESC n'est pas le 
premier caractère saisi dans la zone, on 
saute à SUIT1 (cet ESC sera ensuite 
refusé). 

Lignes 32 à 34: on positionne le 
« drapeau de remontée » (E=9) eton 
sort de la routine. 


Lignes 35 à 38 : si ce n’est pas une vir- 
gule, on saute à SUIT2. Sinon, on la 
remplace par un point ($AE) et on 
saute à SUITS. En effet, la virgule peut 
poser des problèmes si les informations 
sont ensuite stockées puis relues par 
INPUT sur disquette (EXTRA IGNO- 
RED) 


De plus, pour les informations numéri- 
ques, il faut traduire la « virgule fran- 
çaïse » en « point anglo-saxon ».. 


Lignes 39 et 40 : si c'est un point. on 
saute à SUITS&. 


Lignes 41 et 42 : si ce n'est pas une 
«flèche de gauche », on saute à 
SUIT3. Ce test n’est pas redondant 
avec celui de la ligne 24, puisque nous 
sommes maintenant dans le cas où la 
longueur maximale n’est pas atteinte. 


Lignes 43 et 44 : si la flèche de gauche 
est le premier caractère entré dans la 
zone (X=0), on saute à SUIT3 (elle 
sera ensuite refusée par la routine). 


Lignes 45 à 47 : si la fièche n'est pasle 
premier caractère, on diminue de 1 le 
nombre de caractères entrés (DEX), on 
recule le curseur (DEC H) et on 
reteurne à la saisie de caractère (JMP 
DEPi). 


Lignes 48 et 49 : si ce n'est pas une 
« f.èche de droite », on saute à SUIT4. 


Lignes 50 à 54 : si par contre c'est une 
flèche de droite, on place la position 
verticale du curseur (stockée en $25 
par le système) dans l’accumulateur. 
La routine qui débute en $FBC1 va uti- 
liser cette valeur pour calculer l'adresse 
de la première colonne de la ligne cou- 
rante qu’elle range ensuite en $28 et 


$29. 


On transfère alors la position horizon- 
tale du curseur (H) dans Y et on va lire 
dans la page TEXT le caractère qui se 
trouve à la position H dans la ligne V 
dont le stockage dans cette page com- 
mence à l'adresse contenue dans 
ADR, c'est-à-dire le caractère sur lequel 
« passe » la flèche à l'écran. On saute 
ensuite à SUITS (affichage) 


Lignes 55 et 56 : sile caractère est infé- 
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rieur à « SPACE » (caractère de con- 
tôle). on le refuse. 


Lignes 57 et 58 . si le caractère est 
supérieur à Z. on le refuse. 

Ligne 59 : ja suite de l'analyse dépend 
alors du type de donnée. que l'on 
charge dans le registre Y. 

Lignes 60 et 61 : si c'est une donnée 
alphanumérique. on passe à SUITE. 


Lignes 62 et 63 : si le caractère est 
supérieur ou égal à ”/”, on passe à 
SUIT7. 

Lignes 64 et 65 : étant donc inférieur à 
°/”, on le refuse sil est différent de 


Lignes 66 et 67 : s'il est supérieur ou 
égal à ”:”. on le refuse. 

Lignes 68 à 71 : on refuse les quille- 
mets s'ils sont en premier caractère 
(problèmes ultérieurs possibles avec les 
ordres PRINT). 


Ligne 72 : le caractère étant mainte- 
nant accepté, on l'affiche à l'écran. 


Ligne 73 : on le stocke dans la zone 
réservée à cet usage, dans la « case » 
numéro X. 


Lignes 74 et 75 : on passe au caractère 
suivant. 

Lignes 76 et 77 ; on stocke le nombre 
de caractères entrés : fin de routine 
pour retour au BASIC. 

L'interaction entre ce programme en 
langage-machine et le programme 
BASIC est assurée dans le sous- 


programme BASIC des lignes 149 à 
169. Celui-ci est appelé pour chacune 
des informations à fournir. Nous n'en 
commenterons que les points qui inté- 
ressent directement notre sujet. 


Ligne 149 : ME=2 ou X = 1 signalent 
que l’on veut un affichage du contenu 
de la variable. B% =8 assure une sor- 
tie de la routine directement après cet 
affichage. 


Ligne 150 : on transmet (instructions 
POKE) à la routine-machine les para- 
mètres de l'information à entrer, puis 
on lance son exécution (CALL 
37350). À noter que l'on place à 
l'adresse 36 ($24) la valeur H-1 et nen 
H, car BASIC fait ses HTAB de 1 à 40, 
alors que le moniteur calcule de 0 à 39. 


Ligne 154: nous sommes déjà de 
retour au BASIC ! Les résultats de la 
saisie de caractères s trouvent aux dif- 
férentes adresses définies dans les 
lignes 4 à 9 de la routine-machine. 
L'instruction PEER nous permet de les 
récupérer. E=9 signale que la touche 
de fonction ESC a été utilisée et que 
l'opérateur désire «remonter » sur 
l'écran. 

Ligne 156 . LC= 0 siseul RETURN a 
été entré. En conséquence. on quittera 
le sous-programme en laissant le con- 
tenu de la variable inchangé. 

Ligne 158 : BASIC récupère mainte- 
nant les différents caractères stockés à 
partir de l'adresse 785 ($311) et 
reconstitue la donnée dans son ensem- 


Récapitulation du code binaire 


NÉ ote 21" 
xX91E6.926F 


91E6- 49 80 


91E8- À6 07 9D 
91F0- À2Z2 00 86 
LR BUTS 72 
9200- 88 F0 28 


PLVBEE VAE CORTE 


PNEUS ARTE 
POIDS 60 
PRE FAI EH 
22000 EURE 
Fee 
7293852 CURE AA 
9240-72-69: 60 
9249- AE: À4 08 
9260- ÂF E:0 04 
9238- EA E0 99 
720 A2 F0 74 
9266-03 E8 40 


MST 
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ble (ZZ$). A noter que l'on enlève 128 
aux codes lus en mémoire pour retrou- 
ver les codes ASCII standards du 
BASIC (ceux des fonctions ASC et 
CHRS - Cf. pages 138 et 139 du 
Manuel de Référence Applesoft). 


Lignes 163 à 167 : on vérifie que la 
date correspond bien au format voulu. 
à savo rJJ/MM/AA. 


Le reste du programme BASIC consti- 
tue un exemple d'utilisation de 


Liste du programme BASIC 


JMS 


l’ensemble « routine-assembleur » plus 
« routine BASIC ». Nous vous laissons 
le soin d'en conduire vous-même 
l'analyse et d'en déduire la façon d’inté- 
grer cet « INPUT généralisé » dans vos 
propres programmes. 


En guise de conclusion. nous lançons 
un appel au peuple ! Cette rubrique 
« Notions de Base » est destinée aux 
lecteurs qui partent à la découverte de 
leur Apple. et bien souvent de l'infor- 
matique elle-même. Afin que nous 


puissions l'orienter dans un sens favo- 
rable au plus grand nombre, n'hésitez 
pas à nous écrire pour nous signaler les 
problèmes que vous voudriez voir trai- 
tés. 

Selon la nature de votre courrier, nous 
répondrons par des articles du même 
type que celui que vous venez de lire, 
ou par une série de courtes explications 
sur certains points très précis. Au plaisir 
de vous lire. 


4 TO 2500? NEXT t HTAË 1? CAlLL 
1 HIMEMS 37340 … Héfit RETURN 
5 DS #  CHR$ C4)! FKRINT D$"ÆLOAD 40ù DATA DONNÉE ALFHA 1, DONNEE 
INFUT,OEJ"t GOTO 408 ALFHA SDONNEE NUM 1,DONNEE 
70 VTAE Zi! HTAE: 1! INVERSE : PRINT NU 2,DATE 
ZM#$? NORMAL ? INPUT " 2 357 MO DATA. 1,4,17r20% 1, 6417;110%2;, 
$t UTAE 21! CALL - 868:2$ = 9156, 200,159: 3:12:7:8 
DÉFMSACZ$, 1): TE 25 — “OUIDR 420 DATA ENREGISTREMENT CONFIRM 
Z$ = "N" THEN RETURN E,ENTREE, AFFUYER SUR ‘RETURN 
71 GOTO"70 ‘ AFRES LECTURE, MODIFICATION 
80 VTAE: VU! HTAË 1? CALL — 868 »: DATE INCORRECTE, CONSUL TATIO 
81 INVERSE ! FRINT Z#$;! NORMAL ! N 
FE TURN 429 FOR I # 1 TO 5$ READ LI$(I)! 
90 TEXT ! HOME ! HTAË 20 LEN NEXT ? FOR I = 1 TO 5? KEAD 
CES) / 2? INVERSE ?t FRINT Z# NUE, ZAUTICMOMZHPACURN MAIS CONS 
{ NORMAL ? RETURN NEXT 3,TO0R LÀ À MOMES KEAD 
149 UTAËE 1 HTAE: H? FRINT LEFTS# MES CTI, TÉCEDS NEXT 
(FO0#$,LO)" De VTAE (UE HTAE: 430 FO = RE A ET OC 
H? IF ME = 2 OR X = 1 THEN PRINT 5 OO COMEES 
ZY#iLL)!t IF EX = 8 THEN 168 HOME UE EUR L = 1 T0) SÉZVMSCT) = 
150 VT4E LU! POKE 8,TY! FOHE£ 36,H ME NET 
- 1! FOKE 7,L0! CALL 37350 “10 ZS$ = T$(C)! GOSUR 90!EX = 8 x 
154 LC = FEEK (9):E = FEEK té): {C > 1)? FOR TZ = i TO 5! UTAË 
IF E = 9 THEN RETURN ZVX(I)? HTAE Lt PRINT LI$(I) 
A A EN RES USA TE MU ON ENT EX x SPA ED 
0 THEN 169 MEME DK MU ES EN 
15% FOR ZZ x | TO LOIZ = FEEK € ‘ESC’ RENVOIT AU NIVEAU SUFE 
784 + ZZ) -— 129122$ = 225 + RIEUR'"S GOSUE: 810 
CHR# (ZI? NEXI S20 FOR LL « DX TO SITY = TYXCLL 
16 IF TY *: % THEN RETURN JEU = ZUX(LLO)IH = ZHXCLL)Y{:LO 
TSI NIDE C2 7e LD EN ONMTHIEN = ZLXCLL) 
ZZ2E = "O0" + 226 539 E = 0! GOSUR 149: IF E = 9 AND 
164 IF MID$ (2ZZ$,S,1) = "/" THEN LL = 9 THEN LL = 5! NEXT ! GOTO 
ZZ$ = LEFT$ (ZZ$,3) + "O0" + 800 
RIGHTS €ZZ$,4) 540 IF E = 9 AND ME = 0 THEN LX = 
165 IF LEN (ZZ$) © ‘% 8 THEN Z$ LL 
= ME$(3)! GOSUE 190! GOTGO 1 64 IF E = 9 THEN LE = LL -— 22ME 
49 = 2! GOTO #70 
166 Z4 = VAL C MID# (CZ22#,4,2))t IF 560 ZYH(LL) # ZZ$IME = 2 x (LL < 
VAL. © LEFTS (22#42)) SV3INODR En) 
Z4 % 12 OR Z4 x VAL © RIGHTS# S7ChUNEXT 1LYX = 0! IF © = 8 THEN 
(ZZ$:2)) © = 0 THEN Z$ = ME Z$ = ME$(2):0 = 21: GOSUE 80 
$(3)! GOSUE 190: GOTO 149 { GET Z$? GOTO 500 
167 RETURN S8û ZM$ = ME$(1): GOSUE 70: IF Z$ 
168 IF ME =: 2 OR X = 1 THEN UVTAE = "NU THEN X = 1:EX = O?DX = 
V5 HTAE H12Z2$ = ZYS(LL)5 FRINT 5 GOT0 520 
ZZ$ SPC LOU — LEN (ZZ#)) S90NC = \C + 1! CO10 510 
169  KETURN 600 Lx = 0? JF C > 1 THEN C = C - 
190 UT&R Z1: HTAH 1? CALL -— 869 1460104510 
? INVERSÉE ! FOR Z = 1 TO 150 610 Z$ = "TRAITEMENT FRECEDENT"“: GOSUE 
ZI APE 16396): NEXT 90! FOR Z =: 1 TO 2000? NEXT 
f FRINT 24/5 NORMAL 35 FOR Z = ? GOTG 500 
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Ergonomie des programmes 


Principes généraux 


Entre deux «bons » programmes, 
c'est-à-dire écrits sans erreurs, donnant 
les résultats attendus, avec des temps 
de travail corrects, etc., l’un peut être 
vraiment bon, et admis comme tel par 
ses utilisateurs, et l'autre rejeté. 


La différence tient souvent dans ce qui 
peut apparaître comme mineur : la 
présentation des écrans et la facilité 
d'utilisation des claviers (ce dernier 
point étant étroitement lié au matériel 
utilisé), Nous utiliserons le vocable 
« ergonomie des programmes » pour 
désigner tout ce qui dans un pro- 
gramme, est fait pour faciliter la relation 
entre l'utilisateur et l'impersonnel 
« système ». 


La première chose qu'il convient de 
noter est la suivante : hormis quelques 
personnes très averties, ayant déjà eu 
maintes occasions de travailler en utili- 
sant un dialogue écran-clavier, le futur 
utilisateur ne saura pas expliquer ce 
qu'il veut, ni choisir en connaissance de 
cause entre des propositions qu’on li 
fera, même étayées de fac-similés sur le 
papier : car l'écran «bouge», le 
champ de vision n'est pas le même, les 
contrastes diffèrent, les jeux de caractè- 
res sont différents, toute la dynamique 
du dialogue s’efface derrière quelques 
schémas statiques. 


Une seule solution : simuler le futur 
outil de dialogue, quasiment à l'identi- 
que si cette simulation se fait sur le 
matériel qui servira plus tard de support 
à l'application réelle ; au plus près si, 
par exemple, on simule sur micro- 
ordinateur une application qui utilisera 
dans la réalité un gros système multr- 
terminaux. 


Mais il faut bien se rendre compte 
qu'on ne pourra avancer autrement 
que pas à pas ; la simulation du dialo- 
gue complet ne sera donc possible que 
quand l'étude sera suffisamment avan- 
cée, mais pas trop, afin que peu d'élé- 
ments soient figés d'avance. fl peut 
donc être intéressant de réaliser une 
première approche grâce à une 
« pédagogie du dialogue écran- 
clavier », appuyée sur un programme 
de simulation permettant de mieux 
montrer aux futurs utilisateurs ce qu'ils 
peuvent attendre d'un tel dialogue. 


Pom's n° 6 


Présentation 
du programme 


C'est un programme ayant cet objectif 
que nous vous proposons. Il fait « défi. 
ler » des genres d'écrans variés, et per- 
met de tester des commandes de 
divers types (il est bien sûr conçu pour 
Apple Il). 


Le premier écran (instructions 5000- 
5040) demande l'entrée de deux don- 
nées alphanumériques. Il émet une 
seule exigence : au moins 1 caractère. 
| avertit d’une frappe RETURN trop 
hâtive par un message clignotant (un 
traitement des erreurs permettrait en 
outre d'afficher un message si ke fichier 
demandé ne se trouvait pas sur le dis- 
que : netre programme complet com- 
prend cette option). 


Le deuxième écran (instructions 5050- 
5895) propose 3 choix (4 avec l'arrêt} 
et demande une réponse numérique. 
Toute réponse numérique hots four- 
chette amène un message clignotant (il 
aurait également été possible de saisir la 
réponse en alphanumérique, pour évi- 
ter le message système « REENTER » 
en cas d'entrée d'une réponse non 
numérique. 


Quel que soit le choix effectué (sauf 
arrêt), l'écran suivant (instructions 
5200-5500) propose la liste des pro- 
duits (bien entendu, dans une applica- 
tion réelle, il faudrait procéder en « cas- 
cade » à partir de groupes de produits). 
La réponse se fait en déplaçant le cur- 
seur sur l'écran Sur l'Apple Il, i 
n'existe pas de flèches de déplacement 

} et } . on utilise donc les flèches 
e— et —> pour monter et descendre. 


RETURN provoque la recherche du 
produit voulu. La frappe de RETURN 
sur la première ligne vierge permet de 
sortir de l'option. C'est une règle géné- 
rale : ne pas construire d'écran dont il 
soit impossible de s'évader. 


Arrêtons-nous un instant sur cet usage 
de la touche RETURN : elle est nor- 
malement utilisée sur l'Apple il pour 
marquer la bonne conclusion d'une 
action, une entrée de données par 
exemple. Il s'y attache ainsi. dès qu’on 
a acquis quelque habitude de 
l'Apple Il, un sens positif, d'approba- 
tion, d'acquiescement. C'est ici le cas 


Guy Mathieu 


quand. après avoir déplacé le curseur, 
on se trouve en bonne position : OUI, 
c'est bien ce qu'on voulait. 


A l'opposé du clavier, la touche ESC 
peut être programmée pour jouer un 
rôle négatif, de refus. d'erreur. Le 
choix entre l'alternance RETURN et 
ESC passe très vite dans les mœurs. 
Ces touches sont utilisées pour confir- 
mer ou infirmer la suppression d'un 
article ou le souhait de recherche ou de 
création d'un article (sous-programme 


500-550), 


Regardons maintenant l'écran de saisie 
des données relatives à un produit (ins- 
tructions de 2000 à 2350 et sous- 
programme 300-309) Là encore, 
RETURN trouve son sens d'acquiesce- 
ment : on l'utilise pour conserver la 
donnée affichée sur l'écran s'il y en a 
une. 


Des contrôles sont réalisés en outre sur 
la longueur des zones et sur la vraisem- 
blance des données numériques. 


La suppression d'un article se fait d'une 
façon un peu artificielle par CTRL-A : 
une double touche pour éviter toute 
fausse manœuvre. De plus, une confir- 
mation est demandée. Il est particuliè- 
rement important peur la tranquillité de 
l'utilisateur qu'une manœuvre risquant 
de détruire tout ou partie d’un fichier ne 
puisse pas être effectuée par simple 
effleurement d'une touche. 


A noter que l'entrée d’un nouvel article 
se fait en deux stades : d'abord en 
choisissant sur l'écran des produits une 
ligne vierge (v positionner le curseur, 
puis RETURN ensuite, en entrant les 
données, y compris le libellé). 


NB. Dans l'exemple proposé. nous 
n'avons pas programmé l'option « tai- 
tement ». 


Aspects ergonomiques 
généraux 

D'une façon plus générale, quelles sont 
sur l'Apple Il les possibilités de jouer sur 
l'ergonomie des programmes lors du 
dialogue utilisateur-système ? 

1 - Le clavier 


Nous avons déjà vu un exemple de 
gestion du clavier avec l'utilisation des 
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trois touches : RETURN, ESC et barre 
d'espacement. 


Une lacune importante de l'Apple Il est 
l'inexistance des flèches de déplace- 
ment vertical du curseur. Quand le 
besoin se fait sentir de déplacer le cur- 
seur dans les 4 dimensions. il existe 
deux possibilités : 

— ou bien désigner des touches alpha- 
bétiques pour les 4 mouvements (ex. : 
les touches Il, J, K, M utilisées en pro- 
grammation après ESC). C'est très aiti- 
ficiel ; 

— ou bien nutiliser que les deux tou- 
ches de déplacement horizontal et en 
inverser la signification à l'aide d'une 
touche jouant le rôle de bascule (grâce 
à la basse d'espacement, dans le cas du 
progamme Visicalc). 


Dans les éditions de type latin (de gau- 
che à droite et du haut vers le bas), on 
a alors : 

eune fèche d'avance : —=, bas, 
droite 

° une flèche de recul :—, haut, gau- 
che. 


Attention à utiliser à bon escient les 
deux types d'entrées, en mode GET 
ou par INPUT (avec fe RETURN) : fe 
GET a un aspect définitif et doit être 
suivi de contrôles, dors que la possibi- 
lité de retour arrière avant un RETURN 
a souvent un aspect sécuisant. En 
revanche, le GET permet d'utiliser 
toute touche avec une signification par- 
ticulière à l'application considérée, en 
particulier d'ailleurs d'autoriser l'utilisa- 
tion comme en mode INPUT des flè- 
ches pour la correction. 


2 - L'écran 

D'abord, n'y point trop écrire ; sauf 
pour les libellés qui reviennent souvent, 
et qu'on connait vite par cœur ; l'écran 
est alors un rappel. Eviter des textes 
trop longs : si possible, n'écrire qu’une 
ligne sur deux. Une page entière de 


consignes sera généralement plus utile 
sur une feuille d'instructions. 


Ensuite, on peut utiliser toutes les pos- 
sibilités de gestion des caractères : flash 
et inverse, titres encadrés. ralentisse- 


ment de la vitesse d'inscription. Si on 
travaille en graphique, utilisation ration- 
nelle de la couleur et des graphiques. 


Ne pas en abuser : on remarque au 
premier coup d'œil un message cligno- 
tant isolé. On ne remarque plus rien si 
on voit trop souvent des flashes, des 
textes inversés et autres « fantaisies ». 


3 - Le son 


Vous disposez d'une part de la « clo- 
che >». d'autre part de la possibilité de 
programmer des sons plus complexes, 
votre de la musique. 


A utiliser à bon escient. Ne pas oublier 
que pour l'utilisateur quelque peu habi- 
tué à l'Apple Il, la cloche simple signifie 
le plus souvent qu'une erreur vient 
d'être remarquée par le programme : 
ne pas utiliser le même son pour mar- 
quer une approbation ! 


Penser aussi à la « pollution sonore » : 
un bruit attirant l'attention de temps en 
temps, sur une erreur par exemple. 
peut être utile. Une trop grande abon- 
dance de messages sonores devient 
vite iritante, et donc inefficace. 


Aspects ergonomiques 
spécifiques 


Les observations qui précèdent sont 
valables pour tous les programmes. 
Chaque programme particulier peut 
posséder où non des vertus ergonomi- 
ques liées au contexte dans lequel 
opère l'utilisateur. Nous n'entrepren- 
drons pas d'en faire un recensement 
exhaustif, maïs quelques points méri- 
tent d'être cités, par exemple : 


— siles entrées écran émanent d'un 
document, il est nécessaire qu’elles 
soient effectuées dans l'ordre normal 
de lecture du document ; 


— si elles résultent de plusieurs docu- 
ments, épuiser, sauf impossibilité abso- 
lue, les informations provenant d'un 
document avant de passer au suivant ; 


— même chose si cataines informa- 
tions apportées par l'écran doivent être 


recopiées, par exemple pour compléter 
un imprimé ; 

— pour les graphiques, calculer les 
échelles de façon à mettre en relief les 
phénomènes intéressants à observer, 
tout en évitant des difficultés d'interpré- 
tation des dites échelles ; 


— sil faut utiliser des symboles, des 
formulations inhabituelles, assurez-vous 
qu'ils seront compiis sans ambiqguités : 
tout le monde ne sait pas ce qu'est une 
échelle logarithmique, ou la représen- 
tation d'un nombre en notation scienti- 
fique ; 

— il en est de même du vocabulaire 
utilisé et des abréviations : ce qui est 
sans équivoque pour le cencepteur du 
programme ne l’est pas nécessairement 
pour l'utilisateur ; 


— quand un temps d’atiente se pro- 
duit (calcul, lecture de fichier), l’utilisa- 
teur doit être prévenu afin quil ne 
s'impatiente pas, ou ne croie pas que 
l'ordinateur est en panne. Trois ces 
peuvent se présenter : 

e on connaît le temps d'attente (par un 
nombre d'articles à l'w en fichier, ou de 
boucles de calcul à exécuter} : afficher 
une approximation de ce temps — cf. 
instruction 5035 du programme ; 

e Le temps d'attente se décompose en 
phases successives : afficher entre cha- 
que phase un bref message donnant 
l'état d'avancement — éventuellement, 
en profiter pour glisser un message rap- 
pelant à l'opérateur ce qu'il devra faire 
ensuite ; 

e un temps relativement long, mais 
non calculable (c'est en outre le cas du 
garbage collection, pour qui n'utilise 
pas l'approche présentée dans 
Pom's 2), va se déreuler sans phases 
intermédiaires : placer un message 
expliquant ce qui se passe, et fournis- 
sant si possible le délai maximum au- 
delà duquel l'utilisateur sera en droit de 
penser à une défaillance du système. 


Création d’un fichier 


Pour créer un nouveau fichier, faire 
RUN 6000. 


PRINT D$"CLOSEPRODUITS":NOMS: RE 


### LECTURE DU FICHIER PRODUITS ##+ 


219 PRINT D$"OPENPROBUITS" :NOMS : ”, LBO": 


De rs 
10 D$ = CHR$ (4): DIM LI$(Z0): GOSUR iS TURN 
O00:ZERO$ = " 200  REM 
"eUNS = “ 
“3 GOTG 5000 
100 REM 


#**#% ECRITURE DÙ FICHIER PRODUITS ##+ 
110 PRINT DS$'"'DOPENPRODUITS"':xÛMS:",La0": 235 
PRINT D$'WRITEPROBUITS":;NOMS:" ,R Z40 


"sCP: PRINT LI$ 


PRINT B$"READPRODUITS":NOM$;:",R" 


CP: INPUT LI$ 
IF LI$ = "" THEN 580 
FOR I = 1 TO 6: INPUT CACID: NEXT 
280 PRINT D$"CLOSEPRODHITS":NOMS: RETUR 


150 FOR I = i TO 8: PRINT Chti}s: NEXT : N 
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500 


505 


506 


3507 
508 
309 
ST) 
+kk+x 
909 
510 
D20 


= 
S25 


SS30 
600 
EX 
610 
620 


650 


2000 


HOME 3 PRINT "ETARIISSEMENT 3 ?:ET$ 
© VTAR 55 DRINT "FICHE PRODUIT "à: 
VTAR S: PRINT "DESIGNATIGN (?’CTR 
L A? POUR SUPPRIMER)": VTAE 7: PR 
PAL IR OT EN CE 

EDR = A TUNS 


VTAB I + 82 PRINT CG$(1):" “ss IF 


CAXI) © } O THEN PRINT CA&I) 

IF CA(I) = © THEN PRINT 

NEXT 

RE TURN 

REM 

GESTION RETURN ET ESCAPE *##+x 

POKE - 163568,0 

PRINT "(RETURN/ESCAPE) ‘"; 

GET Z$:Z = ASC {Z$) 

LEZ. CN DNS ANDEZONX NZ TITENDMRR 
INT": 2: 060T0. 520 

RETURN 

REM 


FICHIER NOMS ### 


PRINT D$"OPENPRODUITS":;NOMmS$ :",i.80" 


FOR CP = 1 TO 20: PRINT D$"READPROD 
UITS":NOMS$:", R":CP+ INPUT Lis (CP) 
: NEXT 


PRINT D$'"CLOSEPRODUITS":NOMS$S: RETUR 
N 


REM 


***x MISE À JOUR DU FICHIER ### 


2005 


2020  GOSUK 


20350 VTAB 7: HTAB 1: 




























FOR I = 1 TO B8:CA(I) = O0: NEXT : G 
OSUB 200 
500 


INPUT A$ 


ulateur ? 


207Q 
Zz080 
2090 
2100 


2120 


IF A$ © } CHR$ {1) THEN 2040 
VTAE 20: PRINT "CONFIRMEZ LA SUPPR 
ESSION "“:: GOSUR 500 
IF Z = 135 THEN LI$ = “": 
TO 8:CA(I) = O: NEXT : 
IF Z = 27 THEN RETURN 
PRINT " “: GOTO 2036 
IF A$ = “" THEN VTAE 7: 
:L1$: GOTO 2080 
LI$ = A$: IF LEN {LIS$) « 
(LI$) > 39 THEN GOSUE 
AB 8: PRINT ZERO$:: 
ZERO$:: GOTO 2030 
VTAE 23: PRINT ZERO$: 
FOR 1 = 1 TO& 
VTAB I + 8: HTAE 31: 


FOR I = 1 
GOTO 2170 
PRINT " » 
6 OR LEN 


13000: VT 
VTAE 7: PRINT 


INPUT A$ 


IF A$ = "" THEN VITAE I + 85 AfARH 
523 PRINT CA{I): GOTO Zzis2 

IF LEN (A$) = @ OR LEN (A$) } LG 
(I) OR VAL (A$) ) MG(I) THEN GO 
SUR 15000: VTAKH I + 8: HTAE SZ: pP 
RINT UN$: GOTO 2030 

GOSCE 13100: IF ER = ji THEN ER = 
: VTAEB I + 68: HTAB 352: PRINT UNS: 
GGTO 2096 

VTAE 253: PRINT ZEROH::CA(I) = VAL 

(A$} 

NEXT 

GOSUR 500: VTAE 20: HTAEH 1: PRINT 
"O.K. POUR ENREGISTREMENT ?*: GOS 
UR 500 

IF Z = 135 THEN 22z40 

VTAE 22: 





SE EN ŒUVRE DU BUS IEEE 488. Utilisation et réalisation d'appareils. Par Gérard Bastide et Jean-René Vellas 
Plus de mille appareils sont équipés en IEEE 488, Ce livre décrit comment mettre en œuvre toutes 
es possibilités du BUS IEEE, il comprend la description et les syntaxes sur des calculateurs 
différents de toutes les commandes unilignes ou multilignes, universelles ou adressées et la 
Héponse à toutes sortes de questions : comment connaître au premier coup d'æll les capacités d'un 
8? Deux appareils peuvent-ils communiquer sans requérir l'intervention ou même la présente du 


SYSTÈMES À MICROPROCESSEURS. Par Daniel-Jean David 

ire est une initiation aux conditions techniques de la révolution micro-informatique. Les différents 
Quits intégrés : microprocesseurs, mémoires, boîtiers d'entrées-sorties sont décrits ainsi que 
Hraçon de les assembler pour former un système. Les phases du traitement d'une application et 
éveloppemnent d'un système à microprocesseur sont décrites, notamment du point de vue du 
éb{programmation en assembleur) et des choix à effectuer. 


Chaque voiume : 128 pages - 82,00 FF 





-51, rue Jacquard 
BP 86 - 77400 Lagny-s/Marne 


FRANCE 
Téléphone (6) 007.59.31 
P.S..8ENELUX 








Envoyer ce bon 
aæccumpagre 
de sore règlement à 
PSI. DIFFUSION 

ou, pour la Beigique et 
le Luxembourg, à 





























5.avenue de 1a Ferme Acsa P.S.I.BENELUX 

1t60Bruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 

êu Canada NOM ____ _æ 

ne Saint-O 

49 ru e Saint-Denis 

Montréal Québec H2X3L 1 "ee : ii S 

DIFFUSION TêL:(514843.7663 Code post. ’ Ville ui 


Pom's n° 6 














ATBE 1: PRINT "RETURN de 


A 


D HENE PS 


l 





R CONSERVER “: PRINT "SINON RETAP 
EZ LA LIGNE": G8TO Z0ZO 

2240 PRINT : GOSUE 1O0OQG: HOME : PRINT "A 
UTRE ARTICLE ?": GOSUR SOG:L:S$S (CP 
) = LI$ 

Z3550 IF Z = 13 THEN 5200 

ZhQQ RETURN 

4000  REM 

###% CONSULTATION ##+# 

4010 HOME : GOSUR =:00: GOSUX 500 

4020 VTAE Z4: PRINT "HARRE D’ESPACEMENT 
POUR LA SUIT£’";:: GGSüE 1Z000 

4070 FOR I = 1 TO 8:CA(I) = O: NEXT : H 
OME : PRINT "AUTRE ARTICLE ?": 60 
SUK 500 

4120 IF Z = 13 THEN 5327200 

4130 RETURN 

SQOQ REM MENU 

5005 HOME : VTAE 1: HTAE 7: PRINT ‘GEST 
ION DU FICHIER-PRODUITS" 

5010 VTAE 6: INPUT "NOM DE L'ETAELISSEN 
ENT ? ":ETS$ 

9015 IF ET$ = °" THEN VTAE 9: FLASH : 
PRINT "AU MOINS i CARACTERE S.V.P 

"2 NORMAL : GOTO 5010 

5019 VTAE 9: PRINT ZERO$ 

9020 VTAB 9: INPUT NOM DU FICHIER-PROD 
UITS ? ":NOMS 

9025 IF NOM$S = "" THEN VTAE 11: FLASH 
PRINT "AU MOINS i CARACTERE S.V 
.P. ": NORMAL : GOTO 5020 

50729 VTAE 11: PRINT ZERO$ 

503% VTAE 14: PRINT "PATIENCE POUR QUEL 
QUES SECONDES" 

5040 GOSUE 600 

505Q HOME : PRINT "VOULEZ-VOUS ?°: PRIN 
T 

506Q PRINT "1 —- METTRE À JOUR LE FICH:E 
R": PRINT "Z — CONSULTER LE FICHI 
ER": PRINT "35 - EFFECTUER UN TRAI 
TEMENT": PRINT : PRINT " (© PO 
UR ARRETER) " 

5085 VTAE 15: INPUT " VOTRE CHOIX ? 
":SU: IF SU = © THEN HOME : PRIN 
T "AU REVOIR": END 

9095 IF SU ( © OR SU ) 35 THEN GOSUE 15 
O00: VTAB 18: HTAB 18: PRINT UN$: 

GOTO 5085 
5Z0Q HOME : PRINT "LISTE DES PRODUITS": 
VTAE 5: FOR I = 1 TO 206: PRINF L 

I1$(1): NEXT HT = S:LM = 20: GOSU 
E 30000 

9Z6Q PRINT : IF CP = © THEN 5050 

5900 ON SU GOSUER 2000,4000, 10000: GOTO 
5050 

6000 REM 

#*## CREATION DU FICHIER *##+# 

6005 D+ = CHR$ (4): TEXT : HOME : VTAE 
1: HTAE 7: PRINT "CREATION D'UN F 
ICHIER":ZEROS = " 

6010 VTAE 6: INPUT "NOM DU FICHIER-PROD 
UITS ? ":NOM$ 

6015 IF NOMS = ‘"* THEN VTAE 3: FLASH : 

PRINT "AU MOINS 1 CARACTERE S. V. 
P. "“: NORMAL : GOTO 60i0Q 

6019 VTAE 9: PRINT ZERO$ 

6025 VTAE 17: PRINT “PATIENCE POUR QUEL 
GUES SECONDES" 

6050 PRINT D$"SPENPRODUITS" :NOM$:;",L80" 


6040 


100066 


##% PROGRAMME DE 


10010 
1002Q 
12000 
12010 
1:020 
12025 
13000 
13010 


13100 
135110 


13120 
135130 
15140 


15000 
15010 


15011 
15012 
15015 
15014 
15015 
15016 
15017 
13019 
13020 
15025 
15030 
15035 
i22Z00Q 
30000 
30001 
300027 
30005 
30007 
350010 


50015 
50017 


300270 
50025 
50030 


: PRINT D#"DELETEPRODUITS":NOMS: 
PRINT D#”OPENPRODUITS" :NOMS :", L8Q 


FOR CP = 1 TO 20: PRINT D#"WRITEPR 
ODUITS":NOMS:", R"3CP: PRINT “": N 
EXT : PRINT D#"CLOSEPRODUITS" : NOM 
$: END 
REM 

TRAITEMENT ### 


HSME : PRINT "TRAITEMENT NON PROG 
RAPIME” 
VTAE 10: PRINT "HARRE D’ ESPACEMEN 
T POUR LA SUITE":: GOSUR 12000! R 
ETURN 
REM xx ATTENTE *x#x% 
POKE - 16368,0: PRINT " ": 
Z = PEEK ( - 18384): IF Z { = 12 
8 THEN 12020 
POKE - 16368,0: RETURN 
REM #*# REFUS ##*+ 
VTAE 23: FLASH : PBRINT " ENTREE R 
EFUSEE ”: NORMAL : RETURN 
REM ### CARACT. NÜMER. #xx 
FOR JJ = 1 TO LEN (A$):AA = ASC 
L'MIDS (AS, ET. 1)à 
IF (AA > 47 AND AA « 58) OR AA = 
46 THEN NEXT : RETURN 
VTAB 23: FLASH : BRINT “ CHIFFRES 
SEULEMENT S.V.p. " 
ER = 1:JJ = LEN (A$): NORMAL : RE 
TURN 
REM *## LIHELLES CARACT. ### 
DATA CODE ARTICLE (6 CHIFFRE 
S) 
DATA CODE FOURNISSEUR (4 CHIFFRE 
S) 
DATA CODE CASIER (4 CHIFFRE 
5) 
DATA CODE REAPPRO. (1 CHIFFR 
E) 
DATA POIDS DE LA PIECE K 
G) 
DATA PRIX UNITAIRE {FR.CM 
.) 
DATA STOCK MINI (NOME& 
E) 
DATA QOUANT. A COMMANDE.  (NOMER 
E) 
FOR I = i Tü 8: READ CG${I): NEXT 
DATANS., 4 THE 797. 5,5 
FOR I = i :O 8* READ LG{I1): NEXT 


DATA 999993,9999, 2939, 9, 100, 1000, 
200, 500 


FOR I = 1 TO 8: READ MG(l): NEXT 
RETURN 

REM *#** POSITION DU CURSEUR ##+# 
VTAE Z4: PRINT "MONTER i6-) , DES 
CENDRE (->} , RETURN"; 
CP = 0: VITAE CP.+ 2 

HTAE HT: GET Z$:Z = ASC (24) 

IF Z = 13 THEN RETURN 

IF Z = 21 THEN CP = CP + 1 

IF Z = 8 THEN CP = CP - : 

IF Zu + 13/AND*2 «à ZimAND>Z 
{ ) 8 THEM BRINT "°:: GOTO 300 
05 

IF CP { = O THEN CP = © 

IF CP } = LM THEN C8 = LM 

VTAE CR + Z: GO'Q 30005 
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Un programme de HELLO complet 


Le programme le plus fréquemment 
utilisé est sans conteste le programme 
HELLO, ou BONJOUR, qui nous sert 
à « booter » les disquettes. De nom- 
breux programmes ont déjà été propo- 
sés à cet effet, chacun ayant ses avan- 
tages propres. Nous avons voulu réunir 
dans un programme unique les possibi- 
ltés qui nous paraissaient les plus inté- 
ressantes, à savoir : 

— affichage du volume, des secteurs 
libres et de 40 titres ; 


— lancement des programmes par 
enfoncement d’une seule touche ; 

— chargement jusqu'à cinq fois plus 
rapide ; 

— test de la carte langage et charge- 
ment de l'INTEGER en 5 secondes ; 
— changement de drive avec les flè- 
ches gauche et droite ; 

— delete par CTRL-D suivi du code 
du programme ; 

— lock/unlock par CTREL-L, suivi du 
code... ; 

— load/bload avec affichage des 
adresses par ESC, suivi. ; 

— catalogue normal avec la touche 
#78 à 


— revectorisation du RESET dans le 


moniteur par la touche : 


— taille du programme réduite à 
6 secteurs. 


Mémorisation sous forme 
de programme Applesoft 


Afin d'obtenir un programme à la fois 
court et rapide, il a fallu le réaliser en 
assembleur ; nous avons utilisé pour 
cela le BIG MAC. Pour être « boota- 
ble ». un programme doit normale- 






1# 

8 # MENU ULTRA-RAPIDE 
9 # AVEC LOCK-UNLOCK 
iè # ET DELETE 


D HORREUR EME HEEES 


ment étre écrit en Applesoft : nous 

avons donc converti notre programme 

assembleur BHELLO en progamme 

assembleur grâce à la procédure sui- 

vante : 

NEW vide la mémoire, 

1 CALL 2061 : appel du programme 
assembleur, 

BLOAD BHEELO : charge le pro- 
gramme en mémoire, 

CALL —151 :passe en assembleur. 

*AF : FE OC ‘redéfinit l'adresse de fin 
de programme de façon à englober 
le programme assembleur, 

CTRL-C :retour à l'Applesoft, 

SAVE HELLO :sauvegarde du nou- 
veau programme de boot. 


Sur la disquette Pom's d'accompagne- 
ment, nous avons simplement repro- 
duit le progamme HELLO ainsi 
obtenu. La technique que nous venons 
d'illustrer permet d'incorporer une rou- 
tine en assembleur à un programme 
Applesoft qui l'utilise. Cela permet de 
copier ensuite le programme avec un 
simple LOAD suivi de SAVE, ce qui 
est plus simple que de devoir faire 
appel à FiD pour copier le fichier 
binaire. 


Pour fonctionner, HELLO requiert 
48K de mémoire {ou plus}, le DOS 
3.3. et l'Applesoft en ROM. 


Vitesse de chargement 


Une remarque relative à la vitesse de 
chargement : depuis la parution du 
livre BENEATH APPLE DOS, on sait 
qu'en fait, c'est le DOS, et non l'Apple, 
qui est lent. I} lit un secteur dans son 
buffer en $9600, le recopie à son 
adresse normale et, quand il veut lire le 
secteur suivant, le disque a déjà tourné, 
obligeant le DOS à patienter un tour. 






1 LONCASE = 1 °{ 0 si pas ve ainuscuie} 12 # Terry Le Tallec # 
2 # 13 # et 4 
3 # lé # Jaccues Tran-Van L 
ä RG $80D  :icali 2061) 15 # : 
> # LG HARMONIE EEE 






17 # 
18 # 
19#  / 
20 # 
21 # 
2 # 





CO 





15 Juin 1982 


Thierry Le Tallec 
Jacques Tran-Van 


En chargeant un secteur directement à 
son adresse sans passer par un buffer, il 
n'est plus nécessaire d'attendre. c'est 
tout. Les ZDOS 2.2. DOS 3.4, 
HYPERDOS. &BLOAD et autres 
TURBODOS reposent simplement sur 
ce prinape que nous avons déjà utilisé 
dans l'article « Chargez vite vos fichiers 
binaires » paru dans le Pom's 4. 

Le chargement de l'INTEGER dans la 
carte langage se fait de la même 
manière après les tests : 

— Y at-il une carte langage ? 

— Si oui, contient-elle déjà l'INTE- 
GER ? 

— Sinon. y at-il INTBASIC sur la dis- 
quette ? 


Structure du programme 


Le programme comporte une première 
partie, de F80D à $C03, qui gère les 
commande DELETE, LOCK, .. la 
lecture du catalogue, etc. 


La seconde partie, placée en $9AA6G 
{premier buffer du DOS), assure le 
chargement du programme et son exé- 
cution. Cet endroit a été choisi pour 
que le programme chargé ne puisse 
écraser ce module vital. 


Remarques 


Dans la présentation du catalogue, les 
symboles suivants sont utilisés : 

7** pour un fichier binaire, 

j” pour de l'Applesott. 


-” pour de l'nteger, 
”," pour un fichier TEXT ou EXEC. 


Le type de chaque programme est pré- 
senté par un symbole en inverse si 
celui-ci n'est pas verouillé. 
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FILEMM EQU $00 rang du pan RLA EQU 940666  jex{oution d'u pam APPLESOFT 
FILEPTR EQU #01 pointeur de pan BASCTYP EQU $E000  ;tse du langage 
TSLPTR  EQU $0i pointeur de TSL LAPAT  EQU $FD24 affiche les 2 actets de X,A 
LOCHFLG EQU $03 drapeau de pqn ‘LOCHED’ INTRUN EQU $EFEC execution d’un pa INTEGER 
CAFLAS EQU $04 sdrapeau de ‘Of1ETE”’ INTCOLD EQU #F000 sinitialisation INTEGER 
START  EQU $04 pointeur de dut de pan PRNTAX EQU $F941 affiche les registres À,X 
YREG EQU #06 »Sauveqarde de Ÿ INIT EQU $F8%F text 
RLPLOAN EQU #07 ÿdræpeau ‘RUN/L O0’ TABV EQU $FEE positionnement vertical du curseur 
TYPE EQU $0C itPe du pen BELL EQU $F800 bip 
POINTERI EQU $1E pointeurs de déplacenent UP EQU $FCIA  snante le curseur 
POINTER? EQU #10 ide l'INTEGER HOME EQU $FC% efface L'{cran 
FIFA  EQU $#i0 poids fort de l'adresse du catal, | CLREOL EQU #FC9 efface la fin de la ligne 
INDEX  EQU #19 index dans le bandeau ROKEY  EQU S$F00C  ;entr£e d’un caractire 
MRITERR EQU $iE sdrapeau de pratection<criture CROUT  EQU $FD8E envoie un retour chariot 
OUT HU $20 snarge gauche de l’{cran PRYX2  EQU $FD96 va @ la ligne, affiche X,Y,'-" 
MONOTH EQU $21 largeur de la femtre {cran Cour EQU $FDED  jaffiche le caractire dans À 
MAOTOP EU $22 haut de 1a fen‘tre {cran SETINWV EQU $FE30 faffichage en inverse 
CH EQU $24 position horizontale dy curseur SETHORM EQU $FE8A affichage en mode normal 
TRAP EQU #49 svoir Call Apple janvier 82 SETKEO EU %#FE99  ;INt0 
UN EQU $69 dut de la zone variable sisple | SETVID EQU $FE93  :;PR 
EOFRGN  EQU $# pointeur de fin de pqn ER EQU $FF2) affiche ‘ERR‘ 
PGASTRT EQU $CA sdut de pragran INTECER HONITOR EQU $FF69 entre du moniteur 
| ERRFLG EQU $08 “drapeau de ON ERR 1 

YSAV EQU $F8 *seUveqarde de Ÿ BEGIN  UJSR INIT plein “cran 
HARHSTRT EQU $3D0 sdtpart © chaud du 00S USR HO efface l'Ecran 
NAWGER EQU $3D6 entree du file Aansger JSR SETKEO ;IM0 
UGCI0B  EQU $3€3 slocalise 1108 JR STVID PR 
SOFTEV EQU $3F2 svecteur de RESET LDA $305 #auelle configuration ? 
PSREDIP EQU $3F4 CP #90 48K de ram ? 
SYMBOL EQU $702 tadresse cran du symbole-comande BEQ GCO0000S 

is DIRCTORY EQU $1000 adresse de début du cataloque JSR ERR *Dip 

Fe VTOC EQU DERCTORY+#F% pointeur de début de VTC JP MARHSTRT rend la nain 

“Q GECPEN EQU $2FFC  jadresse de chargement de L'INTEGER| C02000$ USR DOSHDOK 

…. GUFFER EQU $9600  itampon du ler secteur du pqn LDA +493 efface PLE 

_ IS EQU $9700 tampon de la TSE du pan STA #$9000 

MU  FDWLE EQU $9A46  ;ier buffer données du 00S LDA ##9C 

\ HAWDOS EQU $90BF  jd‘part © chaud du 905 STA #$9D01 

INT EQU $A5%Æ routine de passage @ l’INTEGER LDX +#$00 sdiplece le pan en FILE 
AJPCRO EQU $4582 STX INDEX 
OOSDŒEL EQU $ASCS routine ‘EXEC’ HOVEPGH LDA LETS6O,X 
PRNTERR EQU $A702  jaffiche les xessages d'erreur STA FIMAE;X 
CLRCAO EQU $472 INX 
CUO0S  EQU $A7D4 sconstruction des buffers du DOS EME  HOVEPCH 
OGSHOOK EQU $A851 sreconnecte le 005 LDY #ÆEN srevectorise le reset 
DFLTDRU EQU $AA68 4 disque par difaut LDA #*END  ÿpour une sortie 
ME EQU $AA75 tampon de non du programme JSR SETRST  ;plus propres 
PARAIST EQU $8%Æ8B  fparanetres du file manager UX # crée une femtre 
RATS EQU $8765  jentr£e de la RKTS STX #07 
108 EQU $97E8  ;paratres de la RHTS JSR HOÆ 
DRIVE  EQU IOB+?  ;# disque DEX commande lecture pour la RTS 
VOLUÆ QU I0B+3 svolume attendu JSR CATALOG lit le catalogue 
TRACK  BQU 1I08+1 piste 1 
SECTOR EQU IOB5  jsecteur LDY +$8c calcul de l’espace libre disque 
BUFADR  EQU I0B+8 pointeur du tampon de donnes AXTDESC LDA VTOC-1,Y descripteur de piste 
CX0 EQU I0B+i? commande de la RHTS TESTSCT BEQ NXTRAK si 0, piste toute utilisee 
PREVOL EQU 10B+14  jvolume trouxt SL 5si C = 0, le secteur est utilise 
CAROON  EQU $C083  ;autorise la lecture de la RAM BCC TESTSCT sinon il est libre 
CARDOFF EQU $C081 tautarise la lecture de la ROM PHP sauve Z 
LAXGUAG EQU $D000 sd@but de la carte langage INC COUNTER ;incrétente le cowteur 
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OTHRSCT 


NXTRACK 


AIAÇGAM 


1 
TESFINT 


CARDIN 


RELAT 
x 


NEXTPAGE INC 


COPAR 


AENISSSE 


en 
—i 
Eu 


FDOINT 


BEASSSE 


E 
D 
—< 
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OTHRSCT de secteurs libres 
CEUNTER+ I 

frecuwpere Z 
TESTSCT+? ÿsecteur suivant 

spiste suivante 
PUTUESC fin de la VTOC ? 
CARBON 
BASCTYP 
BASCTYP+1 
CARDOFF 


# lecture carte langage 
te du basic HOVEINT 
stcriture carte langage 

53-8-t-il Une carte lanasge? 

soui 


Pas de carte 
}INTEGER d{je chargt ? 
non 1 


ion 1 
FRSTFH. affiche le catalogue 

FILEPTR#L jsecteur suivant du catalogue 
#EB NXTFDE 
YSAV 
YSAV 


sinitialise le painteur de non 
set le sauve 
spr£c{dent pointeur de nan 


+% 
FRSTFIL 
ONEMORE 


nouveau pointeur 
YSAN 
4593 sfin du secteur ? 
NEXTPAGE secteur suivant 
#LOADING-INTBASIC ,/lonqueur de ‘INTBASIC' 
(FILEPTR),Ÿ icharge une Lettre du non 
NOFRE  ;si 0, fin du catalogue 
INTBASIC-I,X comparaison avec ‘IDNTBASIC’ 
MEXTPGH si <> alors titre suivant, 
sinor lettre suivante 


LESSA0 


COMPAR fin de la cowparaison ? 


YSAV srécupire le pointeur de nos 
LESS20 


(FILEPTR),Ÿ 
SECTOR  frande le # de secteur de la TSL 


CFREFPTR}:Ÿ 

MEXTPGH ÿsi effact on le saute 

TRACK rare Le # de piste de La TSL 
LOADINS,X affiche ‘CHARGEMENT DE L'INTEGER’ 
#5 ,X 


RDSECT 
#BEGPGH 
PBECPCH 


slit La TSL en $9700 


BNE FRSTFIL 


FH4E232L28BES 


= on en (æ) 
2353244 
—< D D 


BALSÉRBS 


Su 
CE 


SBBBRSE 


32 
— 
re 


charge INTBASIC en #$2FFC 
srevient avec Ÿ=f 


sinitialise les pointeurs 
4430 sKplace 530 pages 
POINTER1+1 POINTER1 <- $3ÿ00 
EUNGUAC 

POINTERZ+1 SPOINTERZ <- +D000 
(POINTER L),Y 

(POINTER?) ,Ÿ 


MVEINT ;dtplace l’INTEGER en $D080 
POINTER +È 
PUINTER2 +1 


MOVEINT page suivante 


HONE sefface l'cran 
#>0IRCTORY 

FILEPTRH 

ssayte toujours 


ŸREG 


+% 
ONEMORE 
FILEPTR+{ 
+$0B fentr£e du ler fichier 
YREG C 
pas plus de 40 titres 





#20 titres par femtre 


3X$ILENMIA 
(FILEPTR),Ÿ #4 de piste 
MXTFILE saute si effact 
ENDCAT fin si zero 
GUFFER,X 
FLEMM jun fichier de plus 
FILEPTR+I 


sauve Le pointeur de non 


(FILEPTR),Y jnixe avec le + secteur 
BUFFER4 1 ,X 





ee NE 


LOCHED 


CHTYPE 


PTYPE 


PLUS26 


PUGLURE 





STA 


GSSANURES 


ÉÉEPLE 


DER TELLE 


85 


GUFFER+3,X sauve l'index 
4$FF 
LECHFLG 
(FILEPTR},Ÿ ste du fichier 

LOCKED 

LOCIFLG 

LOCHFLG live le drapeau de ‘LOCK’ 
#97F sannule le bit de poids fort 
BUFFER+2 ,X 

4597 


PTIPE 


CHKTYPE 
TABLE: X 
LOCHFLG 
PRINT 
FILENM 
+27 
PUIS24 
+4 
+149 
PRINF 
#15 


en inverse si non v{rauill£ 
safficte le caractire et ‘-’ 


safficte le caractire et ‘-’ 


(FILEPTR}:Y jaffictre le non 

+" " fcherche les caractires 
HORMOSP ;de controle, 

+480 
PME 
COUT 


et les saute, 


PE 
CROUT 
AXTFILE titre Suivant 
COUT 

$"-" 

COUT 


IT Plein {cran 

#15 

CH 

40 

RUNGAD drapeau = "RUN" 

TAN scurseur en haut de l’£cran 
TITLE-1,Y 
$3FF,Y 
PUOUIE affiche le volume 
PREVOL 

URI 


sabaisse le drapeau de ‘LOCK’ 


ge 


PFRESCT 


SE 
— 
DZ 


5% 


LDA 


EMOCATI LDX 


TITRE, Ÿ 
$418,Y 


PFRESCT 

INIT +Vtab 22 

#13 

CH #Htsb 14 

CLREUL 

#$6A (/2 clignotant) 


LOA SETRST-3 ;si reset €: +908 


CF 
RE 
LDX 
ENDCAT2 STX 
LOY 
PCRGIX LA 
STA 
DEY 
BNE 
RAZFUG LSR 
LSR 
GET JSR 
CP 
GE 
ta 
GET CP 
BNE 
iM 
LDY 
CHNGRST  STA 
STY 
BME 
GET2 CP 
BNE 
LDA 
LOY 
BE 
GET3 CP 
BE 
LDA 
SETORIV  STA 
STA 
AP 
GET4 CP 
BE 
LDA 
BE 
GETS CP 
BE 
STA 
LDA 
STA 
BE 
GET CP 
BE 
STA 


#MARDOS affiche ‘x’ 

ENDCAT2 

#$60 s(eurseur cligrotant) 
SYMBOL 

#13 

MESSAGE-1 ,Y 

$7CF,Y saffiche le message 


PCHOIX 
DEL FLAG 
LOCHFLG 
ROKEY attend le choix 
4" “ 

CET 

ED sfin si ‘espace’ 
gx" 

CET2 

MONITOR reset = 4FF49 
EHONTTOR 
SETRST-3 
SETRST-1 
BOCAT 
$"1" 
CET3 
HHAROOS reset = $90BF 

EMARNOOS 

CHNGRST chance le vecteur de reset 
4595 "2" = disque ? 


sraz du drapeau 


ssevte touijœmrs 


relit le catalogue 
#88 "<= disque { 


4598 esc ? 


;live le drapeau de ‘LOAD’ 
YF 5(‘2" inverse } 


$8C sctri=l = lack/unlock 
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DISPLAY AND #$57F STA FREPTR+I 


STA SYCL LEA GUFFER+2,X jtupe du pan 
BNE GET STA TYPE 
GET7 OP +581 sctri-0 = delete LDA GUFFER+3,X 
BME CGET8 STA FILEPTR 
STA DEHRAG LDY #30 affiche le nom choisi 
LSR LOCKFLG annule le drapeau ‘LOCK’ SELECT LOA (FILEPTR),Y 
BPL DISPLAY affiche le nouveau symbole STA SYB0L-1;Y ;6 partir du curseur 
GET CP +°/" compare avec ‘/* STA AAME-LY jet l’{crit dans le tampon du DÜS 
BEQ DSPCAT affiche le catalogue nor#al DEY 
CET9 QG +0" BME SELECT 
BCC GET ÿpas < "9" BIT UDFG run ou lock ? 
CP #"C" BPL CHECK 
BCS CET fpas > "2" USR PROTECT disque protig{i en {criture ? 
CP "a" LDA (FILEPTR),Y 
BCC AFIERN7 ER +#$80 bascule le bit de LOCK 
SEC #44 STA (FILEPTR),Ÿ 
LOX #2 





USR CATANG jritcrit le catalogue 


LDX #6 code de ‘catalog’ 

USR SETPARH appel du file manager 
JSR ROFEY atteni une entrie clavier 
BMI DEBUT saute toujours 


PROTECT 


#1 icode de ‘MRITE PROTECTED DISK” 





BIT 
BPL NOERRR retour 
LDX 
BME 


CHECK BIT OLA jrun ou delete ? L 
BPL NONGLETE È | 
JSR PROTECT disque prot{gi en {criture ? d | 
LDA (CFILEPTR},Ÿ dé | 
BPL OKDEL oh 
LOX +#i0 tlocked -> ne pas effacer 1e 
BNE ERROR 

OHDEL LDA FM ;l'efface Es 
STA PARAIST+8 +8 
LDA WE 

#49 scalcule le rang STA PARRIST+9 

FER LDX #5 jcommande delete 

fil n’y en 3 pas tant! USR SETPARH 

JP BEGIN 





SBC 
CP 
8cs GET 
ASL 
ASL 


ÿmultiplie par 4 x 

devient 1’index NODELETE LDA TYPE 

BUFFER:X 34 de piste BNE NOTEXT 
AFFER+1,X secteur de la TSi JP OOSEXEC jexec 


E & 
< x 


#$0F NOTEXT OC #41 jpqu BINMAIRE ? 
LOCTRK range piste et secteur dans 1108 BEG ROTSL soui -> le charger 
srécupire le pointeur de non BCC APLSOFT 
BAOTYPE LOX #13 code de ‘FILE TYPE MISMATCH’ 


APLSOFT CP #2 spam APPLESOFT ? 


EEE ISIESE 


4FILEH LDA +620 
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32 


RDSECT 


ROTSL 


| MOVETSL 


x 
FRSTSCT 


CATALCG 





288$ 


CH PÉFEFEE 


fessaie de passer en INTEGER 
si reussi, charge le pgn 
erreur ‘LAAGUAGE NOT AVALAIBLE 


#4 ? ARITE PROTECTED DISK’ ? 
sseuve le resultat 

soip ! 

affiche le #esssge d‘erreur 
ten inverse 


attend ure entr£e clavier 
est-ce ’MUTE PROTECTED’ 
551 Oil, Jump BEGIN 
sinon affiche le renv 


nocalise l'IOB 
rappelle La RNTS 
si C-0 pas d‘erreur 
49 code de ‘I/0 ERRCR’ 


INITPTR 
ROSECT 
TS.+1 
TS.+256 


sune autre TSL ? 
Si pas de suite..stop 


FRSTSCT 
TSL+2 
LOCK 
BUFADR#L ÿpage suivante 

RDSECT 

40 

TSL+268,Y rend les TSL contigies 
TSL+256,YŸ 


non -} saute 


MOVETSL 


TSL+2 
TSi.413 
LOCTRK 


lit le ler secteur en 59699 


trange piste et secteur dans 1‘108 


positionne le buffer de RHTS 
continue 


CH scomande RHTS(1=lect, 2={crits) 


FILEPTR pointeur de pgn = $1005 
#>DIRCTORY 

FILEPTR+I 
LOCBF 
#$0F 
#$11 


sdétut du buffer = $1510 


KXTSECT 


BLERSaSS 


î 
S 
2 
ni = 
wo > 


[ae] Oo = 
2360393 
Li D D x 


TITRE ASC 


HESSACE IN 
ASC 

ï 

INTBASIC ASC 

x 

LOADING ASC 

1 

LOCTRK  STY 
STA 
RTS 

1 

LETSCO  LST 


BINARY  LDA 


range piste et secteur dans l’IOB 


## de secteur = -1 ? 

non —> encore un secteur 

teste si protection en £critiure, 
dans le slot 6 ! 

non 

#lve le drapeau de protection 
sretour 


MANAGER appel du file manger 


",2JXSRJX" 
0 _poy'S- 1 


LORCASE 
u Vol." 


“ secteurs libres" 


w VOL . [I] 
* SECTEURS UBRS" 


MYOTRE CHOIX" 


nm +tl 
+ 


"CIS" 
"(CHARGEMENT DE L'INTEGER)" 


TRACK 
SECTOR 


frange la piste dans 1’10B 


récupère le te du pan 
> INTEGCER ? 


PAPPLESOFT ? 
APSOFT 


BUFFER 
START 
43 sdeteraine l’adr. du buffer (C=0) 


adresse de dit 


BUFFER+ 
START+L 
#0 
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JSR LOCBUF  ;pasitionne le buffer de RHTS STA TRACK 
JSR BOUTPON charge le psn INY 
USR CLEAMP inettaie les buffers du DOS LDA (TSLPTR);Ÿ 54 de secteur 
BPL BRUN STA SECTOR 
LOX START STY YREG save l'index 
LDY START#I LDY +19 
JSR PRYX2 UMA #»108 
iDX GUFFER+2 JSR RHTS ssecteur suivant du pgm 
LDA GUFFER+3 ECS END >sortie si erreur 
USR PRNTAX  ;affiche la longueur du pen EDY YREG restaure l'index 
LOAD WP MARIO sortie par reset INY 
BRUN WP (START) exécute Le pqn BNE GOOTNXT 
1 INC TSLPTR# slit La TSL suivante 
APSOFT  ADC GUFFER calcul de LOMEN BOOTNXT INC BUFADR+I ;air charge 254 octets plus haut 
STA EOPRGH  ;LOMEH = fin du pan BNE BOOTPG2 saute taujours 
STA LOMEA ; =$90L + longueur du pgn END600T JP CRD juara start & retaur 
LDA BUFFER+! Ll 
ADC 4508 COUNTER DA 00 
STA EOPRGN+I x 
STA LOMEMH INITPTR LDY #<TSL buffer de TSL en $9700 
LDA +#$FF son le charge en $7FF STY TSLPTR 
TAY LDA #TSL 
LDA +#$07 ; ($80L - $02) STA TSLPTRH 
USR LOCBUF  ;positiome le pointeur de buffer LOCBUF STY BUFADR ;adresse du buffer de RHTS 
USR BOOTPOM charge le pgn STA BUFADR+I 
STA ERFLE RTS 
STA $900 » ($800) = D : 
USR CLEAN CLEAMNP JSR CUS reconstruit les buffers du DOS 
BNI LOAD 1 
WP RN SETHARM STA TR# :(4=0) 
1 UA +22 
INTROUT LDA #$60 spoke ‘RTS’ dans le DS cold start JSR HE +2 
STA $9DE/ JSR (P 
JSR INT Passe en INTECER, JSR CROUT 
LDA +##6€ restaure le code UDY #<HARMOOS sreset = $908F Hi 
STA $9DE/ sdans le DOS cold start, LDA #>HARMOOS 4 
JSR INTCRD initislise le LOEH SETRST STY SOFTEV vecteur de RESET De 
JSR CLOS revient avec #Ù STA SOFTEWH{ IE 
SEC EUR #45 El 
SBC BUFFER STA PHEDP + 
STA PGNSTRT BIT ROAD 1 
LUDA +496 sHIMEN = $9600 RTS 
SBC GUFFER+I x 
STA PGHSTRT+#I END JSR CLEMNP 
SEC WP MARIOOS 
LDA PGNSTRI 1 
SBC #2 LST OFF 
TAY 
LDA PGXSTRT+I 
BC #0 Trucs et astuces 
JSR  LOCBUF Essayez le petit programme suivant : 
JSR GUDTPGH charge Le pan 1 PRINT “COMMENT VAS-TU ?” 
JSR SETMARA 5 VTAB PEEK(37) :PRINT 
BXI LOA0 Ha MODE POËLES POKE 
JP INTRUN  jextcute le pan 2649,066 
D Pour lapprécier, faire (LIST), puis 
BOOTPCM LDY ##1C [RUN] et.[LIST], séparés bien entendu 
800TPG2 LDA (TSLPTR),Y ?# de piste par les traditionnels RETÜRNSs. 
BEA EONBOT ;si piste = D fin du chargenent 





Pom's n° 6 33 














Récapitulation du programme HELLO 





JCALL.-151 S100- 9524 20 SC FC Pe 4 AD 
H1C9-- 89 DE Co EF DD 02 42 60 
x8000.8395 81120- 3E DD 07 A0 O0D A9 CE 0E 
S1D8--99 CF 07 38 D0E7 40 04 
8000- 20 2F FE 20 58 FC 20 89 S1EU- 46 03 20 (OC ÉD Co A0 Do 
8008- FE 20 93 FE AD D5 03 C9 81E8- 03 4C 9A 9E C9 AA DO 0C 
2110220 F0M0S 20 227 FF 4C DU 81FU= À? 69 AD FE 2069 96 GC 
8018- 03 20 51 A8 A9 D3 8D 00 81F8-- GE 9E DO 86 C9 DD DO 06 
80#0- 9D A9 SC BD 01 9D AZ 00 200+ 9 EF A0 9D DO EE C9 95 
8028- 86 19 ED 04 0C 9D A6 9A 8208- DO 0E A9 02 8D EA E7 8D 
8020- E8 D0 F7 A0 9A A9 SE 2 8210- 68 AA 4C 0D 08 C9 88 DO 
8038- 8C 9E A2 02 86 22 20 58 8218- 04 A9 01 DO EF C9 9E DO 
B040- FC CA 20 62 0E A0 8C E9 8220- 09 85 07 A9 3F 8D DD 07 
dodss 27 alt E0 UFAUS 70 EEw08 B228- DO E4 C9 8C DO 09 85 03 
800 FE 67 9E #0 03 EE 68 9E 8:39- 29 7F 80 LD 07 DO AE C9 
8058- 28 DO Fi 98 DO E9 2C 83 8238 84 DO 06 85 04 46 03 10 
8060 C0 AD 00 EU AC 01 E0 2 8240+ EF C9 AF F0 58 C9 EO 90 
8068- 81 C0 C9 4C DO 04 CO 2 8248- 99 C9 DE Ef 95 C9 C1 90 
8070- F0 08 C9 20 DO 09 CO 00 82"0- 02 E9 2C E9 95 C5 00 EU 
8078- DO 05 4C 03 09 Eé 07 AO 9258- 89 0À DA AA EC 00 96 ED 
8080- EE 84 FE AS FE 18 69 23 B260 01 94. 48 PROLOF Z204FD UE 
8088- A8 85 FE C9 03 F0 EE AZ 8268- 68 44 44 4A 4A 09 10 85 
8090- 0 Et 01 F0 52 DD D8 0Ë 9270 02 ED 02 96 85 0C ED 03 
9098- 00 E9 C8 CA DO F3 A4 FE 8278- 96 985 01 A0 1E El 01 99 
81A0- 88 88 Ei 01 8D ED E7 88 8280- DC 07 99 74 AA 88 DO F5 
8048- El 01 30 D? 8D EC E7 ED 8288 24 03 10 26 20 E7 0A El 
80H0- E4 0E 9D AF 05 E8 E0 19 0290 012M9 ED 91 01 AZ U072%2 
808- DO F5 20 69 9Ë 20 19 0E 8298- 62 0Ë 4C 0D 08 20 58 FC 
B0CO0- A0 FC A9 2F 20 71 9E 2 82A0- A2 06 20 94 0Ë 20 0C FD 
1 8008- 3E 9E 84 0E 84 10 A2 30 82At- 30 F0 24 LE 10 64 A2 04 
5 80D0- 86 0F A9 DO 85 11 Ei 0€ SE: 0. DO 3F &4 04 10 1D 20 E7 
L 8008- 91 10 C8 DO F9 Eé 0F Eé B2:8- GA E1 01 10 04 A2 0A DO 
F: B0E0= 11 CA DO F2 20 58 FC A9 82C0- 30 A9 75 8D C3 A5 A9 AA 
ss . 80E8- 10 85 02 DO 09 AS 06 18 82C8- 8D C4 ES AZ 05 70 94 0E 
+ 80F0- 69 23 90 04 Eé 02 A9 OF 820)0- 4C 0D 08 A5 0C DO 03 4C 
5 80F8- AE 84 06 AS 00 C9 28 90 821)8- Cé AS C9 04 F0 3E 90 04 
“ 8100 03 4C 8F 09 C9 14 DO 0E 82K0- AZ 0D DO 0D C9 4% F0 31 
Ê 8108- 85 20 85 21 20 58 FC A4 828. A9 20 20 E2 À% F0 ZA A? 
a 8110- 06 AS 00 0OÀ 0A AA E1i 01 82F0- 01 E0 04 08 20 DD FE 2 
ë 2119* 20 Da F0.64 FD 00096 E6 82F8- 80 FE 20 02 A7 20 84 FE 
cl 8120- 00 CB AS 02 0À 0À 0À OA 8300-- 20 9C FC 20 0C FD 28 F0 
9126= 11 01 9D-01 96-6998 9D 8308- 91 4C 8F 09 20 E3 03 2 
6130- 0396 A9 FF 86 02 61.01 8310- ES E7 90 04 2 08 DO D9 
81:18- 230 04 46 DAMGI DS 29 7F 9318- 60 20 69 9E 20 19 UE AD 
8140 ŸD 02 96 A2 07 À UA E0 9328- 01 57 ED 00 98 AS F0 17 
914B- 03 CA D0 FA ED AS 0 25 62%0- 40 02 97 20 FD ME ll 
8150- 03 20 87 09 AS 00 C9 1E 8330- E7 20 19 0E A0 00 H9 0C 
giïe- E0 02 69 2C 69 94 20 87 8339- 98 99 00 98 C8 D0 F7 AC 
0160 uoMAZ DENCOMEINUA CS A 8340- DC 97 AD 0D 97 20 FD 0E 
8168- E0 04 C9 80 E0 F5 20 ED 9349- A0 00 A9 96 20 71 9E 20 
8170 FDSCA DO EF 20 SÉFD AC 9350- 19 0E 4C A6 9A RE F4 E7 
9178 FA 0% 20 ED FD A9 AD 4C 92#9- Gé 1E Af 00 8C EE E7 84 
8190- ED FD 20 ?F FE A0 OF 84 9360 00 84 01 A9 10 8% 02 26 
8188- 24 A9 00 85 07 20 E FE: BasHe1@l SE A9 (0E ARE 20 ED 
9190- 9 AC OF 99 FF 03 88 DO 9370 020 {4 Of FE FLE? CE 
6198 F DE AE FO 70 24 E0 8378- €D E7 10 F5 AD ED CO AD 
g1A0- 20 9C FC A9 15 85 24 AE 8380- ÉE C0 10 U2 985 3€ 60 8E 
81A8- 67 9E AD 68 9E 20 24 ED 8388- EE ES A9 06 8D Ci ES AD 
91/:0- A0 OF E9 EC 0Ë 99 18 04 3390- 68 ôñ 8D C0 ES 4 
81f:6- 89 10 F7 ?0 2F FE A9 0D *3D06 
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Je venais de terminer de taper ce 
magnifique programme d'Othello 
publié par une de mes revues préférées 
et j'avais fait plusieurs pates plus ou 
moins brillantes de ma part quand, au 
beau milieu d'une partie passionnante, 
la sentence tomba comme un couperet 
de guillotine : SYNTAX ERROR IN 
LINE 980. Horreur ! ! ! Je listai la ligne 
980 : il manquait un deux points entre 
un HOME et un GOTO), ce qui m'avait 
échappé au cours des nombreuses 
relectures du pregramme. 


Cette histoire a déjà dû se produire, de 
façon plus ou moins semblable, chez 
nombre d'entre vous. Aussi m'écriai-je 
alors : plus jamais ! Je m'attelai à 
l'ouvrage et pondis le programme 
d’analyse syntaxique (SNTX) ci-joint. 


Ce programme répond à trois objec- 
tifs : c'est tout d'abord un utilitaire qui 
détecte les SYNTAX ERROR et les 
TYPE MISMATCH ERROR avant 
l'exécution d'un programme en Apple- 
soft ; secundo, il est didactique quant à 
la forme : c'est un programme que j'ai 
voulu très stucturé afin de bien illustrer 
la logique de la programmat'on et que 
j'ai truffé de remarques (presque une 
instruction REM par ligne) ; tertio, il est 
didactique quant au fond : son étude 
aide à comprendre comment fonc- 
tionne l'analyse syntaxique qui est une 
des trois activités fondamentales d'un 
interpréteur (avec la gestion des varia- 
bles et celle des piles — les piles de 
l'Applesoft peimettent de gérer les 
GOSUB et les FOR... NEXT). 


Comment utiliser 
ce programme 


a) Programme sur cassette 


Ïl faut taper les instruct'ons suivantes, le 
programme à étudier étant déjà chargé 
en mémoire : 

POKE 1912, PEEK (103) : POKE 
1913, PEEK (104) 

POKE 1914, PEEK (175) 
1915, PEEK (176) 


Cela permet de cacher les pointeurs de 
début et de fin de programme (adres- 
ses 103 et 104, 175 et 176 respective- 
ment) dans les mémoires 1912 à 1915 
(qui semblent faire partie de la page 
texte, mais qui en réalité n'en font pas 
partie — voir le manuel de référence 
de l'APPLE Il). 


POKE 
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Un analyseur de syntaxe 


POKE 103, PEEK (175) : POKE 164. 
PEEK (176) 
POKE PEEK 
(104) *256—1,0 
Cela permet de charger le programme 
d'analyse syntaxique SNTX à la fin du 
programme à étudier. 


LOAD charge SNTX 

DEL 1,0 met en place les pointeurs de 
SNTX 

RUN lance SNTX. 


(103) + PEEK 


b) Programme sur disquette 


L'opération ci-dessus est réalisée auto- 
matiquement par un fichier EXEC 
nommé SYNTAXE, fabriqué par le 
programme en Applesoft FAIT 
SYNTAXE ci-joint. La procédure à 
suivre est la suivante : 

RUN FAIT SYNTAXE crée le fichier 
EXEC 

LOAD Nomprog — Nomprog est le 
nom du pregramme à analyser 
EXEC SYNTAXE change les poin- 
teurs et lance SNTX. 


Fonctionnement 
du programme SNTX 


Fonctionnement général 


Le programme commence par deman- 
der le numéro de la première ligne à 
étudier. Puis, ligne après ligne, il indi- 
que si chaque instruction est correcte 
ou non. SNTX s'arrête automatique- 
ment après l'analyse de la demière 
ligne du programme étudié; il 
demande alors à l'utilisateur s’il veut 
retourner au programme initial : si 
non, il laisse k programme SNTX en 
place : si oui, il rétablit les pointeurs du 
programme initial. 

On peut si on le désire interrompre le 
programme SNTX par CTRL-C ou 
RESET ; pour retourner à ce moment- 
là au programme initial, il suffit de faire 
GOTO 12000, à la suite de quoi 
SNTX pose la question du retour. 


Messages d'erreur 

et indications 

0 CORRECT 
erreur) 


1 INSTRUCTION NON RECON- 
NUE 


(instruction sans 


Olivier Herz 


2 (signe ou « token » de l'Applesoft) 
ATTENDU 

(variable ou fin d'instruction) 
ATTENDUE 

NUMERO DE LIGNE > 63999 
NOMBRE INCORRECT (nombre 
réel dans le programme) 
EXPRESSION INCORRECTE 
CONFUSION DE TYPE (type 
mismatch error) 

INSTRUCTION AMPERSAND 
INSTRUCTION CALL 

10 FONCTION USR 

11 INSTRUCTION REM 

12 INSTRUCTION DATA 

13 GET NUMERIQUE 


Les erreurs 1 à 7. fatales à l'exécution. 
sont indiquées par un beep sonore. 


\Ÿ0 00 I O en oo 


Les messages 8, 9 et 10 indiquent des 
erreurs potentielles : il s’agit d'instruc- 
tions qui appellent le langage machine 
et peuvent prendre en main la syntaxe 
du programme (par exemple & X 
HPEOT ou CALL 768,A); aussi, 
dans ce cas, SNTX émet un message 
d'erreur et ignore la fin de l'instruction 
(attention : il se peut qu'exceptionnel- 
lement &. CALL ou USR nécessitent 
pour leur SYNTAXE le symbole deux- 
points, par exemple CALE 768:A : 
dans ce cas, SNTX peut indiquer une 
erreur à tort). 


Les messages 11 et 12 indiquent une 
instruction un peu spéciale : la syntaxe 
de DATA est déterminée. uniquement 
à l'exécution, par une instruction 
READ et un REM ignore la fin de la 
ligne (ne pas faire REM BLABLA : 
PRINT A$). Alors SNTX émet le mes- 
sage d'erreur et ignore la fin de l'ins- 
truction pour un DATA la fin de la 
ligne pour un REM 


Le message 13 indique une erreur un 
peu spéciale : GET À est par exemple 
licite en Applesoft mais si, en réponse à 
cette instruction, l'utilisateur tape une 
touche autre qu'un numéro de O0 à 9, 
on obtient une SYNTAX ERROR. Le 
GET numérique est donc à proscrire 
au profit de GET A$:A=VAL(AS), 
par exemple. 


Il faut signaler que les erreurs indiquées 
ne sont pas toujours celles faites par 
l'utilisateur . par exemple A=1B.. 
engendrera le message FIN D'INS- 
TRUCTION ATTENDUE, que l'utilisa- 
teur ait voulu écrire A=1:B=2 ou 
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A=1+B; de même. GET(AS(B$)) 
sera qualifié non pas de CONFUSION 
DE TYPE, mais par un GET NUMERI- 
QUE (c'est en quelque sorte ici un 
«bug» de SNTX, maïs il était trop com- 
piqué de faire autrement). 


Notons que SNTX relève des erreurs 
que l'Applesoft ne voit pas. Par exem- 
ple, GOTO 123A$ passe en Applesoft. 
ce qui est dû au fait que, celui-ci étant 
interprété, il ne regarde pas derrière 
123; 


Une ligne du genre 10 PRINT « BLA:- 
BLA sera notée EXPRESSION 
INCORRECTE par SNTX alors que 
l'Applesoft tolère l'oubli du « quote » 
en fin de ligne. 


L'Applesoft supporte IF A$ THEN... 
ou encore ON I GOTO sans numéro 
de ligne, ce qui ne sert à rien et est 
dénoncé par SNTX. 


De même pour STORE A. instruction 
permise par l'Applesoft alors qu’elle ne 
stocke sur cassette que les adresses et 
les longueurs des chaînes du tableau 
A$ et non les chaînes elles-mêmes. 


Enfin, l'Applesoft ne vérifie la syntaxe 
de l'expression située après DEF FN 
F(X)= que si la fonction FN est appe- 
lée au cours du programme, par exem- 
pie PRINT FN F{(2$l). alors que SNTX 
analyse la syntaxe de tout ce qui suit le 
DEF FN. 


En revanche, SNTX ne signale pas les 
autres erreurs d'exécution, comme jes 
OUT OF MEMORY s'il y a par exem- 
ple trop de IF THEN, FOR NEXT ou 
GOSUB emboîtées ; les OVERFLOW, 
même pour les constantes réelles dans 
le programme (SNTX aurait pu le faire, 
mais c'était trop fatiguant !) ; ou encore 
l'existence de plus de 88 dimensions 
dans un tableau (ne soyons pas ridicu- 
les } ; enfin, tout « trafic » fait directe- 
ment sur les octets du programme et 
qui change la « tokenisation » peut 
dérouter complètement SNTX. 


Analyse du programme 


Commençons par indiquer, à l'usage 
des puristes, que ce programme n'est 
optimisé ni en place mémoire, ni en 
vitesse d'exécution En effet, pour aider 
la compréhension du programme, on a 
préféré le structurer au maximum, 
même si cela paraî parfois peu astu- 
cieux (sous-programmes appelés une 
seule fois par exemple). Nous n'indi- 
querons ici que les grandes lignes du 
programme, les nombreuses REM qu'il 
possède expliquant les détails. 


La ligne de programme 
Applesoft 


Indiquons en préambule comment est 
faite une ligne de programme Apple- 
soft. Les deux premiers octets repré- 
sentent l'adresse de la ligne suivante 
(octet bas. puis haut comme toujours) : 
si cette adresse est nulle, c’est qu’on a 
atteint la fin du programme. 


Les deux octets suivants indiquent le 
numéro de ligne (de O à 63999 en 
principe — octet bas puis octet haut 
bien entendu). 


Enfin, la ligne est représentée de 
manière « tokenisée » : les octets 
valant de 1 à 127 indiquent un carac- 
tère ASCII et ceux valant de 128 à 234 
indiquent un code ({« token ») de 
l'Applesoft (voir Pom's 4 pages 44 et 
45), la fin de ligne étant indiquée par le 
code O,. 


Le programme 


Il commence par un saut à la ligne 
20000 pour initialiser le tableau des 
erreurs, demander le numéro de la 
première ligne à étudier et la chercher, 
en retrouvant l'adresse du début du 
programme à étudier dans les mémoi- 
res 1912 et 1913. 


Puis il saute en 10000 pour débuter 
l'analyse : il indique le numéro de la 
ligne et celui de l'instruction dans la 
ne puis. en fonction du « ioken » de 
l'instruction, il saute vers une des lignes 
3000 à 3500 (étude des « tokens ») 
avant d'écrire le message d'erreur (ligne 
100 à 150) et de passer à la prochaine 
instruction (ligne 10020). 


Pour l'étude des « tokens », on utilise 
des petites routines situées avant la 


ligne 3000. 


Le cœur de l'étude syntaxique est 
constitué par l'analyse des expres- 
sions : il s’agit des routines débutant en 
600 (nom de variable), 1000 (expres- 
sion numérique) et 2000 (expression 
chaîne), qui s'appellent les unes les 
autres : et oui !le BASIC estrécursi, le 
problème étant qu'il ne possède pas de 
variables locales, difficulté contournée 
par l'utilisation de tableaux (VAR, AI 
et A2) et d’une pile {], IE et 12) notant 
l'enfoncement dans la récursion (lignes 


670, 1330 et 1620) 


Notons l'importance de la variable ERR 
dans ces routines :dès qu’une erreur est 
trouvée, ERR n'est plus nul et l'on soit 
immédiatement des sous-programmes 
récursifs par les multiples issues de 
secours IF ERR THEN RETURN. 





Après le retour au niveau général du 
programme {lignes 3000 et suivantes), 
l'analyse est arrêtée en cas d'erreur par 
le sous-programme de la ligne 20. 

Notons qu'en fin d'analyse, le pro- 
gramme saute à la ligne 12000 et. le 
cas échéant. retoume au programme 
initial en restaurant ses pointeurs qui 


étaient cachés dans les mémoires 1912 
à 1915. 


Les variables 


PTR : pointeur d'adresses qui indique 
la progression dans le programme étu- 
dié. 

À : contient la valeur de l'octet ind'qué 
par le pointeur (ligne 10). 

ERR : numéro de l'erreur trouvée. 
ES$(ERR) : nom de cette erreur. 
FINI : variable indiquant la fin d'une 
instruction: (ligne 30 : A=0 ou A =58 
donne FINI = 1). 

TKN : indique la présence d’un (ou de 
plusieurs) «token » ou caractère à 
l'adresse pointée par PTR. 

LN : numéro de la ligne étudiée. 

NL : numéro de la prochaine ligne. 
IST : numéro de l'instruction dans la 
ligne (ligne 10000 et suivantes). 
BEG : numéro de la première ligne 
demandée par ‘utilisateur (ligne 
20040). 

AS : sert pour les INPUT et les GET. 
B : est un code et B$ un nom de 
«token » où de caractère pour les 
messages d'erreurs (lignes 100, 400 et 
900). 

US : indique la présence de la fonction 
USR (ligne 1310). 

PNT : indique la présence d’un point 
dans un réel (ligne 800). 

NBR : valeur d'un numéro de ligne. 
ENG : longueur d'un numéro de ligne 
(ligne 500}. 

INF. SUP, EGA et COM sont utilisés 
pour la détection des opérateurs de 
comparaison. 

VAR et VARI) : notent le type d'une 
variable {lignes 600 à 790). 

ADR, Al(li) et A2(12) : représentent 
un stockage provisoire de PTR (lignes 
1330, 1620 et 3730). 


Améliorations 
du programme 


Je pense avoir pris en compte, à défaut 
de la totalité, au moins 99 % des cas 
de figures qui peuvent se présenter 
dans un programme Applesoft. 
J'espère que SNTX les traite tous cor- 
rectement : en effet, le programme 
SNTX a beau avoir été testé sur de 
nombreux programmes Applesoft, il 
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est loin d'avoir eu affaire à tous ces cas 
de figure. Aussi, j'espère qu'il ne reste 
pratiquernent plus de « bugs ». 


En ce qui concerne les limitations de la 
vitesse d'exécution et de la taille 
mémoire dont nous avons parlé ci- 
dessus, il est conseillé d'utiliser une ver- 
sion sans REM du programme SNTX 
(obtenue avec le CRÜUNCHER de 
DAKIN ou AOPTIMIZER). Sans les 
REM, on a la possibilité d'analyser la 
syntaxe de programmes Applesoft 
ayant jusqu'à 110 secteurs sur dis- 
quette (ou faisant moins de 28K envi- 
ron, ce qui est quand même considéra- 
ble — un programme trop gros aboutit 


au message PROGRAM TOO LARGE 
au moment du chargement de SNTX). 
La version sur cassette tolère des pro- 
grammes de 40K au plus. 


Enfin, nous foumissons sur la disquette 
de Porn's le résultat de la compilation 
de SNTX par le compilateur TASC : il 
s'agit du fichier binaire SNTX COM- 
PILE. Son utilisation est un peu diffé- 
rente de celle de SNTX : il suffit d'avoir 
le programme à étudier en mémoire, 
puis de fare BLOAD SNTX COM- 
PILE et CALL 29869 (attention : 
29869 n'est pas l'adresse de début du 
fichier SNTX COMPILE). La suite des 
opérations est la même que pour 


SNTX. à la différence près que SNTX 
COMPILE efface le programme étudié 
quand il a fini (c'est dû à TASC). 


On peut ainsi étudier la syntaxe de pro- 
grammes dont l'adresse de fin. indi- 
quée par PRINT PEEK(175) + 
PEEK(176)°256. est inférieure à 
25856 (donc des programmes avant 
jusqu'à 95 secteurs ou faisant jusqu'à 
23K environ). Notons que SNTX 
COMPILE n'utilise pas d'adresse supé- 
rieure à 36820, donc peut être utilisé 
tant que la HIMEM reste supérieure à 
ce nombre {en particulier avec PLE qui 
abaisse la HIMEM à 36864). 


& RE £9 REX“ ---TESTE G0TO-GOSUER---— 
KREKREREREREEÉERÉREÉEERRE 90 SESUB 10: IF À { } 171 AND A « } 1! 
# BROGRAMME SNTX: # 76 THEN ERR = Z:R$ = "GOTO OÙ 60S 
+ ANACYSE SYNTAXICUHE + UE": POP : GOTO :6% 
* D'UN DROGRAMME EN * 5 RETURN 
*# HASIC ASPLESOFT + 99 REM ---SAUT->FIN D’ INSTR, —--- 
DEN HE DE DE DE DE DE HE DE DE DE HE DE DEEE DE DEEE TOC CRÉENT TEE R RTE? 2 DR VERRE S TT 
5  GRFC 20000: REM INITIALISATION HEN PRINT H$:;" ‘": 
8 RE 110 IF ERR ( 8 AND ERR 4 >} © THEN PRI 
HD HE DE DE DE EH HE DE DE DE DE DE DE DE DE DE DE DEEE JE NT CHR$ (7):: REM ERREURS FATALE 
# ROUTIKES COURANTES  *# S -} HIP 
DH HEDEDEDEDE DE DE DE DE DE D DE DE DE DE DE DE JE JE 120 PRINT ERS$S{ERR): REM MESSAGE D’ERREU 
9 REX ---INCREMENTE iE POINTEUR ET R 
LiT Le PROGRAMME--- 13530 PTR = PTR - 1: REM PARFOIS NECESSAIR 
10 A = PEEK (8TR):PTR = PTR + i: RETURN E 
140 GOSUB 50: GOSUER 10: IF NOT FINI TH 
:9 REM ---TESTE SI ERREUR--- EN 140: REM FIN D? INSTRUCTIGNS 
29 IF ERR THEN POP : 60T0 100 150 GOTO 10020 
ëS5  RETIRN 199 REln ---VEST COMPARATEURS--- 
Z9 REM ---TESTE FIN DE LIGNE--- 208 SUF = O:INF = C:EGA = % 
50 FIiMI = O:A = REEK (BTR): IF A = Q OR | 210 GOSGH 10: IF A = 207 THEN SUP? = SUP 
A = 58 THEN FINI = i + 15 IF SUP } 1 THEN ERR = 6: RE 
55 RETURN TURN : REM } 
59 REM ---TESTE SI CHIFFRE--- 220 IF À = #08 THEN EGA = EGA + 1: IF E 
à TKN = O0: = PEEK (PTR)I: IF A) = 48 GA } 1 THEN ERR = 6: RETURN : REM 
AND À € = 57 THEN GOSUR 10:TKN a 
= 1 250 IF À = 209 THEN INF = INF + 1: IF I 
45 RETURN NF ) 1 THEN ERR = 6: RETURN : REM 
47 REA ---TESTE SI 2ETTRE--- (. 
S0 TKN = GA = PEEX (PTR): IF A) =865|240 IF A} = 707 AND A ( = 209 THEN 2 
AND À ( = 35 THEN GOSUR 10:TKN 10: REM } = OÙ 
Sel 250 PTR = PTR - 1:CO0OM = SUP + EGA + INF: 
5S RETURN RETURN 
979 REM ---TESTE (-) OU (+)--- 299 REM ---ATTEND FIN D°INS. --- 
60 TKXN = OM = PEEK (PTR): IF A = :00 9 | 300 GOSUR 530: IF NOT FINI THEN ERR = 5 
R A = 20i THEN GOSUR 10:TKN = 1 :E$ = "FIN D? INSTRUCTION" 
65 RETURN 510 GOTO 10% 
87 REM ---TESTE SI GPERATEUR--- 599 REM ---ATTEND LE T#SKEN E--- 
70 TKN = O:A = SEEK {PTR): IE A) = 20 | 400 KE = 41l:EH$ = “)": GOTO 450 
Q AND À € = 04 THEN GOSUR 10:7 | 405 E = 44:E$ = ",": GOTO 4sû 
KN = 13 REM + — * / ET 410 B = S9:hH$ = ’;": GOTO 450 
72 RETURN 415 KE = 4O:H$ = "(": GOTO 450 
7S TKN = GA = PEEK (PTR): IF A = ;05 © | 420 H = 193:K$ = "TO": GOTO 450 
R A = 296 THEN GOSUB 10:TKù = 1: | 4Z5 K = 194:B$ = "FN": GOTO 450 
REM AND ET OR 4350 H = 196:E$ = "THEN": GOTO 450 
77 RETURN 455 & = 197:5$ = "AT": GOTO 450 
79 REM —---TESTE (-) au €,)--- 44Q H = ZO8:EH$ = "=": GOTO 450 
80 TKN = O:A = PEEK (PTR): IF A = 44 or | 45 GSSUE j0: IF À < ) H THEN ERR = 2 
A = 201 THEN GOSUR 10:TKN = 1 460 RETURN 
82 RETURN 493 REM ---LIT NR. DE LIGNE--- 
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510 


760 
770 


780 


730 
7993 
800 
805 





NER = Q:ENG = © 
GOSUR 40: IF NOT TKN THEN 550: REM 
CHIFFRE 
ENG = ENG + 1: IF LNG } 5 THEN ERR = 
à: RETURN : REM TROP i ONG 
NER = NER #% 10 + À — 48: IF NER } 65 
999 THEN ERR = 4: RETURN : 2=M NU 
MERO TROP GRAND 
GOTO 510 
IF LNG = GO THEN ERR = Z:EH$ = "NLUMER 
O DE LIGNE": REM PAS DE NUMERO 
RE TURN 
REM —--LIT NOM DE VAR. --- 
GOSUR 700: GOTO 660: REM PREND VARI 
AELE REELLE 
GOSUH 7j0: GOTO 660: REM PREND VARI 
ABLE NUMERIQUE 
GOSUR 720: GOTQ 660: REM PREND VARI 


ABLE CHAINE 

GOSUH 750: REM VARIABLE QUELCONQUE 

VAR(I) = VAR: IF ERR THEN RETURN 

GOSUE 900: IF NOT TKN THEN RETURN 

5: REM ( 

I + 1:VAR(I) = ©: GOSUR 10O0:I = 

3 — is IF ERR THEN RETURN : RE 

EXPRESSION DE L’ INDICE 

GOSUH 905: IF THKN THEN 870: 
IRGULE 

GOTO 4QG0G: REM ) 

REM ---LIT UN NOM DE TABLES OÙ DE 
VARIABLE SS iNDEX---— 

GOSUR 7SO:ERR = {VAR © } ©) # 72 R 
ETURN : REM PREND VARIAELE &EELLE 

GOSUER 7SO:ERR = (VAR = Z) x 7: RETU 
RN : REM PREND VARIARHIE NUMERIQUE 

GOSUR 7SO:ERR = (VAR € } 2) # 7: R 
ETURN : REM PREND VARIABLE CHAINE 

GOSUR SO: IF NOT TKN THEN ERR = 5: 
H$ = "VARIABLE": RETURN : REM PRE 
MIERE LETTRE 

GOSUER 4O: IF TAN THEN 70: 
FRE 

GOSUR 
RE 

VAR = {A = 57) + 2 # if = 56): IF VA 
R © } Q THEN GOSUH iOG: REM VAR= 
© SI VARIABLE REELLE, i Si ENTIER 
ENET 2" SI CHAINE 

RETURN 

REM —--LIT UN NOMBRE --— 

PNF Q 

PNT PNT + 1: 

RETURN : 


Ta 


REM V 


REM CHiF 


SO: IF TKN THEN 760: REM LETT 


2F PNT } 2 THEN ER& = 
REM 1 SEUL BOINT DEC 


D £ 


_  D'APRES non 
ORDINATEUR, ILEXISTE UNE 
VINGTAÎNE D TERRESTRES 
sur TERRE . HA! HA! HA! Hal 


| 


RUE 
HAUT A 


IMAL PAR NGMBRE ! 
810 GOSUH 920: IF TKN THEN 850: REM EXP 
OSANT 
820 GOSUR 91%: IF 3KN THEN 605: REM POI 
“Ni 
6350 GOSUR 40: IF TKN THEN 8iO: REM CHiF 
FRE 
84O RETURN 
850 LNG = Oi GOSUE 680: REM SIGNE 
860 GOSUE 40: 1F NOT TKN THEN RETURN 
3 REM CisiFFRE 
870 ENG = iNG + 15 IF LNG © = 2 THEN 86 
GO: RE“ EXBOSANT D’ AU BUS Z CHIFF 
RES 
880 ERR = 5: RETURN 
699 REM ---TOKEN FACULTATIF --- 
900 K = 4O: G050 360: REM ( 
905 K = 44: GOTO 980: REM , 
910 ER = 54: GOTO 980: REM " 
915 E = 46: GOTO 380: REM POINT 
20 EH = 69: GOTQ 380: RE“ E 
25 B = 171: GOTO 980: REM GOTO 
950 EH = 199: GOGTO 980: REM STEP 
95S KH = 195: GOTO 980: REM TÜ 
94O & = 197: GOT 980: REM 67 
945 E = ZO0: GOTO 980: REM + 
950 E = 196: 5G1G 980: REM NOT 
980 TKN = @:A = PEEK (PTR): IF À = 5 TH 
EN GOSUR 1O:THN = 1 
990 RETURN 
999 REX 
LAS ELSSIILISI SLI TS TS. 
*EXPRESS. NUMERIQUE +*% 
HAÉRRRRMRRUUMNRUUUUNN NX 
1000 GOSUB GO: IF TKN THEN 1000: REM Si 
GNE 
1005  GOSUR 950: IF TKN THEN 1000: REM N 
OT 
1910 GOSUR 10: IF A = 4OQO THEN 1040: REM 
( 
1915 If À « } 194 THEN 1:00 
LONSNMREMMEZSNENSSSS 
1020 GOSUR 70: IF ERR THEN RETURN & R 
Em FONCTION 
1030 GOSUE 415: IF ERR FHEN RETURN : à 
EM < 
1040 GOSUR 1000: IF ERR THEN  RETLRN : 
REM ARGUMENT 
1050 GOSUR 4O0: IF ERR THEN RETURN : R 
EM ) 
1060 GOTO 19300 
1100 IF À € } 215 THEN 1ZG0Q 
1109 REMLE= = SCANT == 
1110 GOSUR 1000: IF ERR THEN RETURN : 
REM EXPRESSION 1 
1120 GOSUR 40S: IF ERR THEN RETURN : R 
Eñ VIRGULE 
1130 GOTO 1040: REM EXPRESSION 2 ET ) 
1155 IF ERR THEN RETERN 
1200 IF A € à 227 AND À « } 229 AND A 
(>, ZSOTHEN, 1300 
1209 REM ==- LEN, VALIET ASC == 
1210 GOSUR 415: IF ERR THEN RETURN : R 
EM ( 
1220 GOSUEH XO000: IF ERR THE RETURN : 
REM EXPRESSION CHAINE 
1230 GOTO 1050: REM ) 
4300 IF À € ? Z135 AND À  } Z1i4 AND A 
{ } 217 THEN 1400 
1509, IREM ==7 ÜUSR; (RE ET PROS, —-— 


he LE L 
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1310 US = ©: IF A = 213 THEN US = : 2040 GOSUR 1000: IF ERR THEN RETURN : 
1520 G8SUE 415: IF ERR THEN RETURN : R REM ARGUMENT 
EM t 2050 GOSUE 400: IF ERR THEN RETURN : R 
1330 AZ(IZ) = PTR'IZ = I1Z + 1: GOSUE 109 EM 
G:12 = 12 — it ÏF ERR = @ THEN 13 | 2060 GOTO 2300 
50: REM ARGUMENT NUMERIQUE 2100 IF À € 3} 232 AND À € } 232 THEN 
1335 IF ERS ( ? 7 THEN RETURN Z2Z00Q 
1340 PTR = AZ(IZ)!ERR = O0: GSSUE ZO00! 1 | 2109 REM --- .£FT$ ET RIGHTS ——— 
F ERR ( }) © THEN RETURN : REM ñ | 2110 GOSUR 415: IF ERR THEN RETURN : R 
RGUMENT CHAINE En À 
1350 GSSUR 4Q0: ÎF ERR THEN RETURN : R | 2120 GSSUR 2090: IF ERR THEN RETURN à: 
EM à REM EXPRESSISY CHAINE 
1360 IF DS THEN ERR = 10: RETURN : Rem Z130 GOSUER 405: If ERR THEN RETURN : R 
ERREUR FORCEE EM VIRGULE 
1370 GOT 1300 Z14Q GOTO Z040! REM ARGUMENT ET ) 
1400 IF A € Z10 OR A } 226 THEN 1500 2200 IF À « } 234 THEN 2300 
1409 REM --- SGN, INT, ABS, PBL, SarR | 2209 REM --- MIDS --- 
, RND, LOG, EXP, CSS, SIN, TAN | 2210 GOSUE 4iS: 1F ERR THEN RETURN : R 
, ATN, PEER --- EM ( 
1410 GGOTG 1030: REM (ARGUMENT) 2220 GSSUE 2000: IF ERR THEN RETURN : 
1500 IF À € } 46 AND {A ( 48 OR À } =7 RE“ EXPRESSISN CHAINE 
) THEN 1600 2230 GSSUR 405: IF ERR THEN RETURN : à 
1509 REM ——- NSMERE --- EM VIRGULE 
1510 PTR = PTR - 1: GOSUR 800: IF ERR Th | 2240 GBSLEH 1000: IF ERR THEN RETURN : 
EN RETURN REM EXPRESSION 1 
1520 GOTO 1300 2250 GOSUE 905: IF TN THEN 2040: REM A 
1600 PTR = PTR - 1: IF A = 54 OR À = Z28 RGUMENT ET } SI VIRGULE 
OR (A } = 231 AND A € = 234) T | 2260 GOTO 7050: RE» ) 
HEN 1700: REM DERUT D'EXPRESSION 2300 IF A « 65 8R A ) 90 THEN Z40Q 
CHAINE 2309 REM --- VARIABLE —-—- 
1610 IF À € 65 BR À } 90 THEN ERR = €: 23510 PTR = PTR - 1: GSSUR 620: IF ERR ŸH É 
RETURA EN RETURN 
1619 REM --- VARIARLE --- 2320 GOTO =900 
1620 P1(I1) = PTR:I1 = li + 1: GSSUE 650 | 2400 IF A « })} 34 THEN 2500 
111 = ji - ji: IF ERR THEN RETURN | 2409 REM --- CHAINE --- 
2410 GOSUR 10: IF A = O0 THEN ERR = 6: R 
16830 IF VAR{I) = 2 THEN PTR = Ai(I1): G ETURN #= 
OTC :7Q0+: REM DEERUT D'EXPRESSION 2420 IF À © + 34 THEN Z410: REM FIN DE = 
CHAÏNE LA CHAINE? ù 
1640 GBTO 1300 2430 G8TS :300 Zu 
18299 REM --- COMRAR. CHAINES —-—- 2500 IF À © }) 4Q THEN ERR = 6: RETURN E 
1700 GBSUB 2000: IF ERR THEN RETURN : ÉE0Q (RElir-- Me e 
REM EXPRESSION CHAINE 2510 GOSUE ZOO: IF ERR THEN RETURN : + 
1710 GBSUE ZOO! IF COM = © THEN ERR = 7 REY  EXPRESSISN CHAINE y 
: RETURN : REM ) «© OÙ = 2520 GSTO 2050: REM ) n 
1720 GOSUE 2000: IF ERR THEN RETURN : 2893 REM --- BPERATEURS --- : 
REN EXSRESSIBN CHAINE 2900 GOSUE 945: IF TKN THEN 2000: REM + 
1899 REM ——— BAPSRATEURS --- 2910 GOSUR 70: IF TKN THEN ERR = 7: &ET 
1900 GESUR 200: IF COM THEN 1000: REM « URN : REM - * / ET * 
>) Où = 2920 RETURN 
1910 GOSUER 70: IF TKN THEN 1000: RE + 2999 REM 
ER OÙ" ; : RRRRRREEERERERERERERX 
1920 GSSUE 75: IF TKN THEN 1000: RE% AN | »} ETUDE DES TOKENS x 
D OÙ 8R ERRHÉKHHERHHEÉHEHIHHHHHH 
1330 RETURN 3099 REM --- FOR.,TS --- 
1993 REM 3100 GOSUER 700: GOSUBR ZO: REM VARIABLE 
KRRHHHEHRHERHEREREREHIHHX REELLE SANS INDEX 
* EXPRESSION CHAINE +# 3i10 GOSUR 440: GOSUE ZOQ: REM = 
RREREANAAARARERERREEX 3:20 GOSUR iGO00: GOSUR ZX REM EXPRESSI 
2000 GOSUR 945: IF TKN THEN 2000: REM + eu 1 
ZO1Q GOSUR 10: IF À = 46 CR (A } - = 48 3130 GOSUR 470: GOSUR 20: REM TO 
AND À © = 57) OR À = 1934 OR À = 3140 GOSUE 1000: GOSUR 20: REM EXPR£SSI 
201 OR (A ) = 210 AND A © = 230 en = 
AND À €? 228) TREN ERR = 7: RE | 3150 GOSUE 930: IF TKA THEN 3800: REM S 
TURN : REM TYPE CHAINE? TEP 
ZOZO IF À < >} 28 AND À { }) 231 THEN 3160 GOTO 300 
2100 3199 REM --- NEXT --- 
2029 REM --- STR$& ET CHR$ --- 3200 GOSUR 30: IF FINI THEN 100: REM PA 
2030 GOSUER 415: If ERR THEN RETURN : R S DE NOM DE VARIAELE 
EN 3210 GOSUE 700: GOSUR 20: REM VARIABLE 
EE 
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39 


3600 
5610 
3620 
5650 
3640 
3650 
5660 
5699 
5700 


5719 





5800 


3839 
5900 


5910 


5999 
4000 


4010 
à0z0 
49199 
&100 


REELE SANS INDEX 


GOSHE 905: ir TKN THEN SZio: REM V 
IRGULE 
6070 <0ù 
REM --- DATA —-- 
ERR = iZ: GOTG 100: REM ERREUR TOURC 
EE 
REM —-- ÏINBUT ——-— 
GOSUR 910: IF NOT TKN) THEN 5450! 
REM 
GOSUR 10: IF À = © THEN ERR = 5:KH# 
= "VARIAHLE": GOÜTO 100 
IF À © } 34 THEN 5410: REM FIN DE 
LA EMAINE? 
GOSUKR 410: GOSUR ZOO: REM SUINT-VIR 
GÈLE 
REM --- READ --—- 
GOSUKR 650: GOSUR 20: REM VARIARLE 
GOSUR 905: IF TKN THEN 5450: REM V 
TRGULE 
GOTO 500 
REM --- DEL —-—-— 
GOSUKR 500: GOSUR ZOO: REM LIGNE 1 
GOSUR 405: GOSUKR ZO: REM VIRGULE 
GOTO 4450: REM LIGNE Z 
REM —--— DIfi —-—- 
GOSUR 750: GOSUH ZOO: REM TABLEAU 
GOSUE 415: GOSUE ZO: REM 
GOSUKR 1000: GOSUEH ZO: REM DIMENSIO 
N 
GOSUR 905: IF THN THEN 5670: REM V 
IRGULE 
GOSUKR 400: GOSUER 20: REM ) 
GOSUR 905: IF TKN THEN 560: REM V 
IRGULE 
G2r0 590 
REM —-- PRINT —--- 
GOSUR SO: IF FINI THEN 100: RE" FI 
N D’ INSTRUCTION 
GOSUER 10! IF À = 44 OR À = 59 THEN 
5700: REM VIRGULE Oti POINT-YVIRGU 
LE 
iF À = 192 OR A = 195 THEN GOSUE 
1000: GOUSÜB 20: GUSÜE 600: GOSuUB 
20: GOTO 5700: REM SPE( ET ÿ AE 
PTR = PTR — 1:ADR = PTR: GOSUB 1000 
t 1F ERX = 7 THEN S750: RE“ EXPRE 
SSION NCMERIQGUE 
SOSUR 20: GOTO 5700 
PTR = ADREERR = O: GOSSR 000: GOSi 
B :0: GOTO 5700: REM EXPRESSION C 
HAINE 
REM --- SPEED=,HCOLOR=, IN#, COLUR 
=,HIMEM:,LOMEM:, VTAB, HTRE, SCAL 
E=, ROT=, PR# -—-—-— 
GOSUE 1000: GOSUH 20: GOTOU 3500 RE 
M EXPRESSION UNIQUE 
RE -——— CALL -—-- 
GOSUR 1000: GOSUB ZO: REM EXPRESS: 
ON 
ERR = 9: GOTO 100: REM ERREUR FORCE 
E 
REM —-- PLOT ET POKE --- 
GOSUKR 1000: GOSUR Z0: REM EXPRESS: 
OK 1 
GOSUR 405: GOSUR 20: REM VIRGULE 
GOTO 3400: REM EXPRESSION Z 
REM ——— HLIN ET VLIN —-—- 
GOSUR 1000: GOSUR ZO: REM EXPRESSI 
ON 1 


àz00 
à710 


à22z0 
4299 
4300 
a310 


43520 
43550 


43540 


4350 
4599 
àà400 
àà&àa7 
4450 
4860 
4479 
4500 
84510 


4520 
4599 
ä6800 
às10 
4620 


46350 
4699 
4700 
4710 
4799 
4800 
4810 


48:00 
4850 


à840 
4999 
47300 


4933 
5000 








40 


GOSUR 405: GOSUR 20: REM VIRGULE 
GOSUR 1000: GOSUR 2x REM EXBRESSI 
ON % 

GOSUR 455: GOSUE 20: REM AT 

GOTO 3800: REM EXPRESSION 5 

REM ——-- DRAW ET XDRAW —-—- 

GOSUE 1000: GOSUER ZOO: REM EXPRESSI 
ON ïi 

GOSUK 940: IF NOT TKHN THEN 3500! R 
EM AT 

GOTO 4000: REM EXPRESSIONS Z ET 5 
REM -—-— HPLOT -—-- 

GOSUR 955: REM TO 

GOSUR 1000: GOSUH 20: REM EXxPRESSI 
ON 

GOSUR 405: GOSUR ZO: REM VIRGULE 
GOSUR 1000: GOSUKH 20: REM EXPRESSI 
ON Z 

GOSUR 955: IF TKN THEN 4510: REM T 
O 

GOTO 300 

REM --- ONERR --—- 

GOSUKR 90: REM GOTO OÙ GOSUEK 

REM --- 6050 ET GOSUK --- 

GOSUER 500: GOSUR ZOO: REM LIGNE 
GOTO 500 

REM —--- STORE ET RECALL--- 

GOSUE 750: GOSUER ZO0: REM TARLEAU 
1F VAR = Z THEN ERR = 7: GOTO 100: 
REM TAERLEAU NUMERIQUE SEULEMENT 

GOTO 3500 
REM --- LET —-—- 
GOSUX 650: GOSUR ZO: REM VARIARLE 
GOSUR 440: GOSUR ZOO: REM = 
IF VAR{@) € Z THEN GOSUKR 1000: 60 
SUK 20: GOTO 300: REM EXPRESSION 
NUMERIQUE 
IF VAR(O) = 2 THEN GGSUR 2000! GÙ 
SUKH 20: GOTO 300: REM EXPRESSION 
CHAÎNE 
REM --- RUN --- 
GOSUR 50: IF FINI ŸHEN 100: REM PA 
S DE LIGNE 
GOTO 44SO: REM LIGNE 
REM -—-- 17,. THEN —--—— 
GOSUKR 1000: GOSUR ;0: REmM EXPRESSI 
ON 
GOSUR 925: ir TKN THEN 445OQ: REM G 
OTO 
GOSUR 450: GOSUR ZOO: REM THEN 
GOSUER 4O: IF TKN THEN PTR = PTR - 
i: GOTO 4450: REM NUMERO DE LIGNE 
GOTO 10015: REM SUITE 
REM --- AMPERSAND --- 
ERR = 8: GOTO 1:00: REM ERREUR FÜRCE 
|—$ 
REM --- REM --- 
ERR = ii: PRINT " "‘ERS(CERR) :PTR = 
NL: GOTO 0000: RE“ ERREUR FORCEE 
REM --- ON..G0TO, 
ON. . GOSUK —--—- 
GOSUE 1000: GOSUR Zoo: REM EXPRESSI 
ON 
GOSUK 90: REM GOTO Où GOSUB 
GOSUE 500: GOSUR 20: REM LIGNE 
GOSLUEB 905: IF THN THEN 5120: REM V 
IRGULE 
GOTO 300 
REM --- WAIT ——- 
Pom's n° 6 








3200 GOSUR 1000: GOSUH 20: REM EX2RESS! 
ON 1 

3210 GOSUR 405: GOSUR 20: REM VIRGULE 

3220 GOSUR 1000: GOSUR 20: REM EXPRESSI 
ON 

9250 GOSGEH 905: IF TKN THEN 5800: REñ E 
XPRESSION 5 SI VIRGULE 

SZ4Q (GO7TO 500 

9299 REM --- DEF --—- 

S500 GOSUR 475%: GOSUEH 20: REM FN 

5510 GOSUR 700: GOSUH 20: REM VARIABLE 
REELLE SANS INDEX 

3320 GOSUX 45: GOSUR 20: REM ( 

93350 GOSUH 700: GOSUKH 20: REM VARIAKHLE 
REELLE SANS INDEX 

9540 GOSUH 400: GOSUR 20: REM }) 

5550 GOSUR 44QG: GOSUR ZOO: REM = 

5560 GOSUER 1000: GOSUR ZOO: REM EXPRESSI 
ON 

33570 GOTO 500 

9399 REM —-- LIST = 

5400 GOSÜH 50: IF FINI THEN 100: REM PA 
S DE NUMERO DE LIGNE 

S410 GOSUR 80: IF TKN THEN 5450: REM VI 
RGULE OU TIRET 

SàZ20 GOSUR 500: GOSUH ZO: REM LIGNE 1 

54350 GOSUH 80: IF NOT TKN THEN 300: ÆE 
M VIRGULE OÙ TIRET 

9450 GOSGH SO: 1F FINI FHEN 100: zh pA 
S DE LIGNE Z 

5460 GOTO 4450: REM LIGNE 2 

9499 REY —-- GET —-- 

5500 GOSLR BZOSERR = 6 + (ERR = 7) + :x 
R: GOSUR 20: REM VARIRELE NUMERIC 
LE CONSEILLEE (SI EXR=7 ALORS ERR 
=15) 

3910 GOSUH 905: IF TKN TAEN 53500: RE 
VIRGULE 

9320 GOT0O 500 

9999 REMN 

HE 6 EE DE DE DE DE DE EE EE EE EE EE 

* DEEUT D’UNE LIGNE *# 

#6 HE D DE HE DE DE HE EDEN DE HE DE JE HE EE 

10000 IST = ©: GOSUR 10:NÙ = A: GOSGEH i0 
NL = À + 256 + NL: IF NL = O THE 
N 12000 
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10005 

10006 
10010 
10015 
10020 
10030 


10040 


10050 


10060 


10939 


11000 


11010 


11020 


11050 


11999 
ÉRSS SL: 
* FIN 
RER 
32000 


12010 


12020 


12050 
19999 


GOSUR iO0:LN = A: GOSUR 10:EN = A 
æ 7296 + LN 
INVERSE : SRINT " L:GNE "“:LN:" * 
NORMAL : REM LIGNE 
197 = IST + i: INVERSE : PRINT IST 
35 NORMAL : REM INSTRUCTION 
GOSUER iQ: REM PREMIER OCTET DE 2? 
INSTRUCTION ; 
IF À = 58 THEN IO01Q: REM =IN D'1 
NSTRUCTION 
IF À = à T<EN 10000: RE ZIN DE L 
IGNE 
IF (A } = 65 AND À = 90) ThEN 
A = 1/0:PTR = PTR - ji: REM LET I 
MPLICITE 
ERR = ©: IF À ( 528 OR A } = 132 
THEN ERR = ji: SOTO 100 
I = O1: = £:IZ = OO: REM ROINTEURS 
DES 212ES DE VAR, AL ET AZ 
REM —---EN VOITURE SIMONE! 
CON A — 127 GOTO 500, 53100, 53209, 330 


Q, 3400, 53500, 3600, 5450, 300, 300, 580 
0, 3800, 3900, 4000, 4100 ,41Q0 
ON À — 143 GOTO 506, 300, 3800, 4500 
, 4:00, 4200, 5860, 300, 5800, 3800, 500 
, 300, 500, 300, 500, 500 
ON A - 159 GOTO 5800, 500, 5800, 580 
O, 3800, 44QO, 500, 4500, 4500, 3800 ,46 
09, 4450, 4700, 48Q00,500, 4300 
ON À - 75 GOTO 4450, 300, 5000, 300 
, 2190, 500, 300, 3500, 5300, 4090, 3700 
, 300, 5400, 500, 5500, 500 
RE 
JM DE DE HE DE JE JE DE JÉJE DE DE JE D 
DE i'ANALYSE +*# 
LES SES SES ES SES SE SL à 
PRINT : PRINT "VOULEZ-VOUS REVENI 
R A PROGRAMME INITIAL?": 
GET A$: IF A$ € } “O"* SAND AS ( 
UNE THENV 12010 
PRINT AS: IF AS = 
105, PEER (1312): 


1O" THEN 
POKE 104, 


POKE 
REEX 


(1915): 9DO0KE 175, PE£EEK (i914)5 90 

KE 176, FEEK (1915): REM RESTAURE 
LES DOI NTEURS 

END 

REM 


HE EE DE DE EE NE JE JE DE DE DE EE JE JE EE 


+ INITIRLISATION + 
EEE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EE 


Zz0000 
ZO0010 


Z00Q20Q 
20050 
ZO0O04OQ 
20050 
20099 
20100 


20110 


ZO120O 


TEXT : SOMME : VYAE 8: HTAR 5 
PRINT "PROGRAMME D’ANALYSE SYNTAX 
IGUS": PRINT : PRINT 

HTRB 12: PRINT “PAR OLIVIER HER/"' 
5: PRINT 

HTAE 
1982": 


“(C) PONS OCTORRE 
PRINT : PRINT 

"LIGNE DE DEPART " 
INPUT RSIHEG 


5: PRINT 

BRINT : 

PRINT : PRINT 

: POKE —- 16568, 0: 
VAL {A$) 

DIM A1(10),AZ(10), VAR(10) 


TE 


RE ———INITIALISE LE TAE 
EAU DES ERREURS--- 
DIM ER$(13): FOR ERR = © TO 15: R 
EAD ERS(ERR): NEXT 


DATA CORRECT, INSTRUCTION NON RECO 
NNUE, ATTENDU, ATTENDUE, NUMERO DE & 
IGNE } 65999, NOMBRE INCORRECT, EXP 
RESSION INCORRECTE 

DATA CONFUSION DE TYPE, INSTRUCTIO 


0 0 à NINSSSNNNNNNE NN NN SRE 


RULES 


_41 





| 


TUE 
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B.I.P. Information 


HeltLA'UeLLS.\ 22821 


À - CARTES MEMOIRES LEGEND U.S.A. 


en promotion : Carte 128 K - FF. 5025 HT 
Carte 64K - FF. 3050 HT 


Mémoire supplémentaire 
et Vitesse accélérée, 


Ces Cartes Interfaces comportent : 
— La carte Mémoire Interface. 


— Le Manuel d'Utilisation. 
(Français en option). 
— Les programmes suivants ouverts et 
d'utilisation facile : 
e V.C. Plus, Offre 82 K ou 136 K mémoires 
(80 colonnes en option) 
Utilisables pour Visicalc. 


Disque émulateur, simule Drive 
d'accès rapide DOS (CP/M où 
Pascal en option.) 


Sélecteur de Diapositives, qui donne 
instantanément 16 images par Carte 128 K 


Mémory Master, qui libère 1G K de 
l'Apple ; Fiipps DOS 3.3. et 32. 


Mémory Test, pour tester les mémoires. 
e Hires Demo, et autres. 


Les Cartes d'extension Mémoires LEGEND 
sont fiables et Garanties 1 an. 


B - LOGICIEL GRAPHIQUE ARTISTIQUE 


en promotion: FF. 650 HF 


CEEMAC langage graphique et un album. 
« ORGUE DE FEU » ou « SPARKEE » 
à votre choix. 


Pour le plaisir de vos yeux, des images 
mouvementées et interactives, jamais 
exactement les mêmes. Suite d'images 

« SCORES » créées par d'autres (Album) 
ou par vous mêmes (CEEMAC). 


B.I.P. 


22, rue Joseph Dijon - 75018 PARIS 
LA CET TUE 








N AmPERSAND, INSTRUCTION CALL, FONC 
TION LUSK, INSTRUCTION REM, INSTRUCT 
TON DATA, GET NUMERIQUE 


20199 REx ---CrERCHE LA Li5 
NE DE DEPFART--- 
20200 PTR = PEEK (19iZ) + PBEEK (195) 


# 256: Rens DERUT (STOCRE) DU PRüG 
RAMME À ETUDISR 

20210 GOSUR 1O0:NL = À: GÜSAR 101NL = 
* 256 + Ni: IF NL = À THEN 1Z000: 

REM DEBUT DE LIGNE 

£0720 GOSUR IO:LN = À: CGOSUE SO:LN = # 
# 256 + EN: ÎF LN >} = KEG THEN i 
QQ006: REM EBN NUMERO DE LIGNME 

202350 PTR = Ni: GOTO ZO0Z10: En SAUT—-)> FI 
N DE LA LIGNE 


SG REM KkREEEREEÉÉÉELEEEREERHEÉS 
# EPRRIUUE LE FICHIER + 
# EXES QUI CHGASE SNTXX 
* GL-DESSUS Di ERG- # 
* GRAMME A ETUDIER x 
ÉRÉEERERÉEERÉREÉHERIÉRIÉREÉX 
LODEL SR ns RC RTS AC INETSE 
= MSYNIAXE'" 3 RE“ SOM Du SIC 
MIER EXES 
19 REM ERA MUREMDER ST CSTER 
FO PRINT D$'8PEN"NSDS"DELETE'"N#D 
H'OPEN'"'NSDS'WRITE "NS: REM SC 
RME CemPACTEE DE 2° OUVERTUX: 
DEMETELATER 
3 REM 
105, lOë4: DEBUT AROGRAMME 
179,176: FIN PROGRAMME 
SO PRINT POKE 91%, DESN(IOS) st 
KE 15:35, PEEK(104:" 
4  BRINT "BGXAE 1914, PEEK SI 75) 190 
DEMI EE NME SR EEE 
KOAGE DES POINTEUKS DU 3ROGRE 
MME À ETUDIER 
50 PRINT PORE 1095, BEEN (i7 5) 5 SÛX 
E 1604. PEEK (170) ° 
SQ PRINT “SOC AEEH(IOS}+PecN (10 
HPRT AE, OMS SREMNDEÉRTODELSS 
TX=FIN DU PROGRÉMPE INITIAL 
7 PRINT “LUAD SNTY'E RE ON Ché 
RGE SNix 
SOMPRINEMDELS EL, O0! : HR EM ON, MET E 
ES AUTRES POINTELRS EN PLACE 


30 PRINT “RUN'"':: REM ON LANCE SK 
TX 
1900 PRINT D$"CLOSE" N&D#"LOCR'NS: 
REM FORME COMPACICE DE LA EF 
ERMETURE DU FICHIER 
EUDSTS  REM HEREEERÉEEEÉERRIEXX 
LL OOEMNTRRER ENT E CT EMNE 
#{C) OLIVIER HERZ * 
* POUR F8»'S x 
SEE DE DE DE DEN DEN REDON EEE 


Pom's n° 6 








La tortue est une petite bête qui se 
déplace sur l'écran avec une plume 
pour faire des dessins. Elle obéit à deux 
ordres de base: AVANCE et 
TOURNE. Pour pouvoir la program- 
mer et profiter du BASIC Applesoft, de 
nouvelles instructions ont été créées 
grâce à l’ampersand (&). Ainsi, sans 
perdre les instructions HPLOT ou 
DRAW, on peut, après avoir fait 
BRUN TORTUE&, multiplier les possi- 
biités graphiques de l'Apple. 


Mode d'emploi 
de la tortue 


Dans les définitions ci-dessous, les 
paramètres des différentes instructions 
sont des variables où des expressions 
arithmétiques en BASIC. Dans les 
exemples, on utilise les variables 
A,X,Y,N qui peuvent être remplacées 
à loisir par des constantes ou des 
expressions. Tous les calculs sont effec- 
tués en nombres réels, mais les coor- 
données de la tortue et son angle 
d'orientation (exprimé en degrés} sont 
convertis après arrondi en nombres 
entiers positifs (X<280, Y <192 et A< 
360) pour tous les déplacements. 

&el : initialisation 

L'instruction [&IN] initialise la tortue. 
Selon la valeur de la variable N, on 
passe en mode HGR [&J1], HGR2 
(&12] ou HGR pleine page [&13]. La 
tortue est placée au centre, toumée 
vers la droite [&P140.96,0], plume 
levée {&LI. Cette instruction n’est pas 
tout-à-fait identique à HGR car elle 
efface l'écran AVANT de l'afficher, ce 
qui évite de montrer les restes du der- 
nier affichage graphique. 1l est indis- 
pensable d'initialiser la tortue ou au 
moins de la centrer avant de l'utiliser au 
début, sinon la position de départ est 
indéterminée. 


&E : écrire sur une page 


(&E1] ou [&E2] indique sur quelle 
page va s'effectuer la prochaine écri- 
ture, qu'elle soit visible ou non... Ne 
pas confondre avec l'instruction [&MN] 
qui affiche la page N sur l'écran. Il est 
donc facile de dessiner sur là page qui 
n'est pas actuellement visible. 
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&M : montrer la page HGR 


[&MNJaffiche sans l'effacer la page de 
haute résolution graphique numéro N. 
Si N=O, on repasse en mode texte 
sans modifier ni la posit'on du curseur, 
ni l'affichage du texte, ni la taille de la 
fenêtre. Si N= 1, l'affichage se fait en 
mode mixte page 1, c'est-à-dire avec 
les quatre lignes de texte en bas de la 
page. Si N = 3, l'affichage de la page 1 
se fait en pleine page. Si N=2, affi- 
chage pleine page de la page 2. 


&R : rideau 


[&RC] recouvre l'écran avec la couleur 
C. Le numéro de la couleur est com- 
pris entre 0 et 8. Les nombres de 0 à 7 
sont les couleurs usuelles. Le nombre 8 
représente la couleur inverse (l'écran 
est passé en négatif}. La couleur d'affi- 
chage en cours pour la tortue n’est pas 
modifiée. L'instruction [&R] travaille 
sur la page active (celle indiquée par 
(&E}. 


&C : centrer la tortue 


[&Ciplace la tortue au centre de l’écran 
et la toume vers la droite, L’instruction 
(&C] est équivalente à [&P140,96,0]. 
La ligne jusqu'au centre de l'écran n’est 
tracée que si la plume est baissée. 


&P : placer la tortue 


(&PX, Y,A] place la tortue au point de 
coordonnées (X,Y) avec un angle A 
par rapport à l'horizontale. {&P0,0,0] 
place la tortue en haut à gauche de 
l'écran et [&P279.191,0] la place en 
bas à droite. Les trois paramètres peu- 
vent être modifiés indépendamment. Il 
suffit que les deux virgules soient pré- 
sentes dans l'instruction. Tout champ 
vide correspond à un paramètre non 
modifié. [&PX..], [&P,Y.], [&P..A] ou 
[&PX,VY,] sont par conséquent licites. 
Pour A= 0, la tortue est toumée vers la 
droite, peur À =90 vers le haut, pour 
A=180 vers la gauche et pour 
A=270 vers le bas. Ainsi, A = 270 est 
équivalent à A=—90. 


&L : lever la plume 


Si la plume est levée, la tortue se 
déplace sur l'écran sans laisser de trace. 
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&B : baisser la plume 


Après (&BC], la tortue trace son che- 
min sur l'écran dans la couleur C. Il faut 
remarquer que [&L} n'est pas identi- 
que à {&B0] : si la plume est levée, 
l'écran n'est pas modifié ; mais si La 
plume est baissée en noir, la tortue 
efface l'écran sur son passage. 


&A : avancer 


[& AD} avance la tortue d’une distance 
D dans la direction vers laquelle elle est 
toumée. Une distance négative corres- 
pond à une tortue qui recule. 


&T : toumer la tortue 


[&TA] toume la tortue d'un angle A, 
exprimé en degrés, par rapport à sa 
position précédente. La valeur de A 
sera positive pour tourner dans le sens 
inverse des aiguilles d'une montre (sens 
trigonométrique positif}. [&T180) fait 
faire derni-tour à la tortue. 


&S : simuler l'avance 


Permet de calculer l'avance de la tortue 
sans la déplacer, ainsi les erreurs de 
débordement peuvent être contrôlées, 
et le déplacement peut être dissocié du 
calcul des coordonnées (voir [&0] et 
[&V]). 

@n ne peut pas simuler plusieurs avan- 
ces successives : une seule est permise 
à la fois. 


&O : où est la tortue ? 


Renvoie la position et l'orientation dela 
tortue dans trois variables réelles quel- 
conques du programme. Après exécu- 
tion de [&OX, Y, A), les variables X et 
Y contiennent les coordonnées de la 
tortue et À l'angle qu'elle fait avec 
l'horizontale. 


Attention ! Dans cette instruction, X, Y 
et À doivent être exclusivement des 
varables réelles simples. 


Les contenus de X, YŸ et A seront 
mod'fiés à l'exécution de l'instruction. 
Les valeurs retournées dans X, Y et A 
représentent la position fictive de la tor- 
tue après exécution du déplacement 
simulé par l'instruction [&S]. 
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Si l'instruction [&O] est exécutée après 
un déplacement réel de la tortue {ins- 
tructions &A &P 8C &l et &V), on 
obtient dans X, Y et A la position réelle 
de la tortue à cet instant. 


ll faut remarquer que l'instruch'on [&S] 
n'influence que les coordonnées de la 
toitue, l'angle retoumé par l'instruction 
[&OÏ est donc toujours l'angle effectif 
de la tortue. 


L'instruction (&O] permet de contrôler 
si là tortue est encore sur l'écran après 
{&S], mais peut aussi servir à mémori- 
ser la position réelle de la tortue pour la 
replacer en un point particulier avec 
[&P] après un petit détour. 


&V : valider l'avance 


Après avoir simulé l'avance de la tortue 
avec [&S] et vérifié qu'elle est toujours 
sur l'écran avec [&OÏ, on peut valider 
le déplacement par [&V]. Cette ins- 
truction ne fait rien si aucun mouve- 
ment n'a été simulé précédemment. 
Par exemple, [&A120] fait la même 
chose que [&S120;V] ou 
[&S120:&V]. 


Instructions composées 


On peut, comme nous venons de le 
voir à la fin du paragraphe précédent, 
composer plusieurs instructions derrière 
un même symbole ampersand. !] suffit 
de les séparer par un point-virgule. 


1 ORG $9156 

2 06J $900 

3 NS 

& MRRSAARENINNATENLORIEDD UE 
5x x 
é x TORTUE  AMPERSAND x 
7x x 
8 x PAR J,DUHA x 
9x x 
10 x 22/5/82 x 
11% x 
12 REDON EEEERNNENNEX 
19% 


14 STXERA  EQU $DEC? 
15 ILLERR QU $E199 
16 MIMERR  EQU $DD76 
17 BASIC Bal $DA3C 
18 CLEAR  EQU $D66C 


20 CARACOH EQU $0EC0 


2; 


Par exemple [&l:&R8:&A123] peut 
s'écrire plus simplement [&l:R8:A123]. 
On peut ainsi tracer un cairé grâce à 
l'instruction [&l1:B3;A25;T90; 
A25:T90:A25:T90:A25;L|. 


Remarques générales 


On peut utiliser les instructions graphi- 
ques habituelles en même temps que la 
tortue. La tortue n'est pas influencée 
par l'utilisation du HPLOT, car tous ses 
mouvements sont calculés entre sa 
position initiale TORTUE.X-Y (valeur 
entière) et T1.X-Y (valeur réelle) et sa 
destination représentée par BUT.X-Y 
et BT.X-Y. 


Par contre, si l'on fait HPLOT TO X,Y 
après avoir utilisé la tortue, on trace 
une ligne entre la position de la tortue 
et le point X,Y. Si on fait ensuite 
[&AD)] la tortue avance alors de D à 
partir de sa position précédente et non 
à partir du point X.Y. 


De même, la couleur de la tortue est 
mémorisée dans TORCOLOR. Cette 
couleur a une influence sur celle des 
lignes tracées par HPLOT, mais HCO- 
LOR n'a pas d'effet sur la couleur de la 
tortue. Ainsi, HCOLOR=2:&B3;: 
HPLOT10,10 va marquer un point 
blanc (de couleur 3). 


Conclusion : pour éviter toute confu- 
sion, utilisez [&P] de préférence à 
HPLOT. En outre, cela transformera 
votre tortue en lièvre. 





Chargement 
du programme 


Pour utiliser la tortue, il suffit de faire 
{BRUN TORTUE&]). Le programme 
est chargé en mémoire entre les adres- 
ses $9150 (37200) et $ISAC (38316). 


Il est donc situé juste sous le DOS. Les 
pointeurs de l’ampersand sont alors ini- 
tialisés à l'adresse de début de pro- 
gramme : 


Début du programme en 
$916D (37229) 

Pointeurs : 

$3F5 (1013) = $4C (76 JMP) 
$3F6 (1014) = $6D (109) 
$3F7 (1015) =$91 (145) 


Un CLEAR est alors généré et le pro- 
gramme donne la main à l'Applesoft 
par un saut à $D43C. On peut utiliser 
les nouvelles instructions aussi bien en 
mode immédiat qu'en mode différé. 


Si l'on veut changer TORTUE& par 
programme, il ne faut pas utiliser 
BRUN car le programme serait inter- 
rompu et le contrôle redonné au 
niveau de commande du BASIC. Il 
faut alors, au début du programme uti- 
lsateur, faire un BLOAD et initialiser 
les pointeurs de la manière suivante : 
10 HIMEM: 37200 

20 PRINT CHR$(4)«BLOAD 
TORTUE &» 

SOLPOKE 1013,76: POKE 
1014,109 :POKE 1015,145 

40 REM suite du programme. 


À vous de jouer. 


#5? (A) OÙ STXERR 
21 VIRGULE EQU $0ÈRE 3? # OÙ STXERR 


23 ENTIERI EQU $E6F8 
24 ENTIER2 EQU $E105 
25 EXPRESS EQU $DD67 
26 RÉEL,INT EQU $E10C 
27 INTREEL EQU $E2F 2 
28 SFP.MP EG) $EBe3 
29 AY.MWFP EG $EN9 
30 AY.SFP EQU $E9E3 
31 FP,XY EG $EB28 
32 ; 

33 HULT.AY EQU $E97F 
34 HULT EQU $E982 
35 PUS EQU $E7Ci 


36 MOINS  EQU $E7AA 
37 COSTMIS QU $EFEA 
38 SHUS  EQU $EFFI 
39 PLUS,S  EQU $E7A0 
Al ; 


41 VAR EQU $0FE3 
42 CHARGE  EQU $EB28 
43 ; 

44 BHGNOO  EQU $F3F2 


EXPRESS * ACUL 
EXPRESS À ACUD-1 


+CONVERSION REELAINT 
?CONVERSION INTAREEL 


* OPERATIONS 


FONCTIONS 


?" AY 
#ACU À VARIABLE 


*EFFACE ECRAN 
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45 BKEND  EGU $F3F4 
46 HCOLOR  EGU $F4F0 
47 HLOT  EQU $F457 
48 HIXÆ  EQU #F53a 
49; 

J0 MASCOLOR EQU $F6F6 
St } 

S2 ACUI EP2 fat 
93 ACUI EPZ fai 
94 PACHGR  EPZ $E6 
55 PLUME  EPZ $6 

56 TORTUE.X EPZ $7 

37 TORTUE.Y EPZ $9 
58 BUT,X  EPZ $F9 
99 BUT,Y  EPZ $FB 
60 TORCOLOR EPZ $FC 
6f ANGLE  EPZ $FD 
62 ; 

63 ANPER  EQU $9F5 
64 HTMEM  EPZ #73 


t 


64 ; 

69 DEPART: 

70 LOA 3DEBUT 

71 STA AMPER+1 

72 LDA /DEBUT 

73 STA AMPER+2 

74 LDA +#$4c 

75 STA APER 

76; 

77 LDA #0EPART 

78 STA KDE 

79 LDA DEPART 

80 STA HINEÏH 1 

81 ; 

62 JSR CLEAR 

83 JP BASIC 

84 ; 

85 ORIOMEIONNENEEENEENIERLED 
; 

87 DEBUT! 

88 BNE TORTE 

89 RTS 

20; 

91 TORTUE CP #'P° 

92 BE TD 

93 MP FLACER 

94 T0 

95 OP +'A’ 

96 BE Ti 

97 JP AVARCER 

98 T1; 

99 CP #7’ 

100 BE T2 

101 JP TOURNR 

192 T2 

103 CP 4'S’ 
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3CO.ORA ECRAN 
+ COULEUR= EX) 


PAGE TRAVAIL 
#L=0 B1 


sINITIALISE 
YPOINTEURS & 


* 
? 


391 & RETOUR 





194 BE 73 

105 AP SIMAER 
106 T3 

107 CP #'V’ 
108 BE 74 

109 «R#@ VALIDER 
(10 T4 

li CP 4°0° 
112 BE TS 

113 RE QU 

114 T5: 

115 GP +'B° 
116 BE Té 

(17 JP BAISSER 
118 Té: 

119 CP #'L° 
120 BE T7 

121 JP LEVER 
122 T7t 

123 CP 4€’ 
124 BE T8 

125 RP CENTRER 
126 T8: 

127 CP #'E’ 
128 BE T9 

129 JP ECRIRE 
130 T9: 

131 CP #°H 
132 BE TID 

133 WP HONTRER 
134 T10: 

18 CP FR 
138 BNE Ti! 

137 JP RIDEAU 
13 Ti: 

139 CP #']' 
140 BNE TR 
14i JP IUT 
142 3 

143 TERR JP SDERR 
144 ; 


15 GRR EREREEEON AE EE 
146 x PLACE LA TORTLE: &P X,Ÿ x 
17 RENE REERA 


148 ; 

149 PLACER: 

150 JSR $B1 

151 CP #',° 
152 8EG P,LIT Ÿ 
153 USR ENTIER? 
154 {DX ACUL 
155 CPX #1 

156 BEG P,256 
157 BCS P,ERR 
158 P.DANSX STX BUT.X+1 
159 LDX ACUI 
160 STX RUT.X 
1él USR TRAMSX 


162 P.LIT_Y UJSR VIRGUE 


19256 
10912 ERER 


€ 


1 CPRE 


tesrwpar 
INISET SFR TS: 


LE 


45 





172 
173 P,LIT_ A 
174 


186 





Mr TE 
— 
© 
ET 


196 P,ERR 
197 ; 


PET TOMEE TS RE 
prb jéiuien L 


199 C.HOINS 
200 

20 

202 

203 

204 

245 

206 

207 

208 

209 C.PLUS 
210 

211 

212 C,AOD 


HER MRRNUUE 


198 CADRANGL : 


CHP 4,’ 
BEQ P,LIT_A 
USR ENTIER? 
LDX ACUD 
BNE P,ERR 
LDX ACUI 
CPX #1192 
BCS P,.ERR 
STX BUT.Y 
USR TRANSY 
JSR VIRGULE 
BEQ P,FIN 
CHP CAE 
BEN P,FIN 
USR EXPRESS 
JSR REEL, INT 
LDA ACUO 
STA ANGLE +1 
LDA ACUE 
STA ANGLE 
JSR CADRANGL 
JSR TRAHSA 
LDA PLLRE 
BNE P, TRACE 
JSR TOBUT 


3296 ERREUR 


1Y2191 ERREUR 


1X 279 ERREUR 


LDA ANGLE+I 
BHI C,ADD 
SEC 

LDA ANGLE 
SBC #1104 
STA ANGLE 
LDA ANGLE+ 
SBC #11 
STA ANGLE+1 
JP C,HOINS 
LDA ANGLE+ 
EXT C,ADD 
RTS 

CiC 

LDA ANGLE 
ANC #!104 
STA ANGLE 
LDA ANGLE+1 
ADC #11 
STA ANGLE +1 
UMP C+PLUS 


tA=&-360 


sA=A+360 





222 x AVANCE LA TORTUES &A D x 
224 XXE ARAAAAIIIDUDNANAK 


225 AVANCER: 

226 JSR SIMULE 
227 JSR VALIDE 
228 SP SORTIE 
229 ; 


230 XOOINENAARENEARIINELEREX 
231 x TOR LA TORTLÆS &TA x 
232 XXL ANNALES 


233 ; 

234 TOLRMER: 

235 JSR #81 

236 BEQ TT,ERR 
237 CP #';° 
238 BEQ TT,ERR 
239 JSR EXPRESS 
240 JSR REEL + INT 
241 CC 

242 LDA ANGLE 
243 ADC ACUI 

244 STA ANGLE 
245 LDA ANGLE +1 
246 ADC ACID 
247 STA ANGLE+1 
248 USR CADRANGL 
249 USR TRANSA 
250 JP SORTIE 
251 TT,ERR JAP STXERR 
252 ; 


253 KAXXKKIAOONRINANNNE LÉINKUX 
254 x SIMILE L'AVANCE; &S D x 
255 XX ONE AIN AOC 


256 } 

297 SIMULER: 

258 JR SIMULE 
239 UHP SORTIE 

260 ; 

261 PT_180 HEX 780EFA3SUF 
262 ; 

263 TF1 HEX 0000000000 
264 TF2 HEX 0000000000 
265 }; 

266 TT,X HÆX 0000000000 
267 TT,Y HÆX 0000000000 
268 BT,X HEX 0000000000 
269 BT,Ÿ HÆX 0000000000 
270 AGL REX 0000090000 
1 ; 

272 SIAULE 

273 LDA #AGl. 

274 LDY /AC. 

275 JSR AYMFP 
276 LDA #PT_180 
277 LDY /PI_180 
278 USR MILT,AY 
279 JSR MFP, TF1 





sAxPI/180 DANS TF1 
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L°] 
O0 
se 
. 


294 
295 
296 } 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
316 
311 SON 
312 
313 ; 
314 
315 
316 


329 }; 

330 MFP,TFI 
931 

332 

333 ; 

334 #FP,TF2 
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SR $B1 

USR EXPRESS 
JSR MFP,TF2 
JSR TF1PfFP 
USR COSINUS 
JSR TF2,SFP 
JSR HULT 

JSR TF1,SFP 
JSR MFP,TF1 


JSR SFP.MFP 
USR SINUS 
JR TF2,SFP 
SR ALT 
JSR MFP,TF2 


USR TF2,MFP 
LDA #TT,Y 
LDY /TT,Y 
USR AY,SFP 
JSR MOINS 
LDX #BT.Y 
LDY /BT,Y 
USR MFP,XY 
JSR PLUS, 5 
JSR RÉEL INT 
LDA ACUI 
BEG S,0K 
LDA #'200 
STA ACUI 
LDA ACUI 
STA BUT, Y 


LDA #TT,X 
LDY /TT,X 
JSR AY.MFP 
JSR TF1,SFP 
JSR PLUS 
LDX #BT,X 
LDY /BT,X 
SR MFP,XY 
SR PUUS.5 
JR REEI. INT 
LDA ACUO 
STA BUT,X+1 
LDA ACUI 
STA BUT.X 
RTS 


LOX #7F1 
LDY /TFI 
JP MFP.XY 


LDX 4172 
LDY /7F2 , 
JP NFP,XY 


LOA #TF1 
LDY /TF1 


+0 DANS TF2 


>DACOSCAXPI/180) DANS TF1 


FOXSIN(AXPI/188) DANS 1F2 


?Y=Y-DASIN (A) 
#-2BT.Ÿ 


FARRONOI-> BUT, Ÿ 


5191 


#X=X+D2C0S (A) 
#2 BT,X 


ARRONDI->BUT , X 


341 AP AY.NFP 
34 ; 

342 TF2,WP LOA #TF2 
343 LDY /TF2 
344 UP AY.MP 
45 ; 

346 TFI,SFP LDA #TF1 
347 LDY /TFI 
343 JP AY,SFP 
347 ; 

350 TF2SFP LA #7F2 
31 LDY /TF2 
32 JP AY.SFP 
363 ; 


354 RAIN ETIENNE XI NA 
355 * VALIDE L'AVANCE: &U x 
6 XRAMRIIIOENMENR I INKRKX 


| 


Hi 

358 VALIDER: 

359 UJSR #B1 

360 JSR UALTDE 

36! NP SORTIE 

362 ; 

363 VALIDE: 

364 LDA BUT,X+#1 

#s CP 451 

366 BEQ V,256 

467 BCS V.ERR 

353 V,Y LDA BUT, Y 

369 CP #!192 

370 8CS V,ERR 

371 LDA PLUME 5° 
372 BRE V,TRACE pi 
373 JW TOBUT Z 
974 V,TRACE JMP PLOTOBUT FE 
375 V,25%6  LDA BUT,X : 
378 CP +124 gi 
37 BCC VY ni 
378 V,ERR JP ILLFRR : 
379 ; Et 


380 XOROONONNNNNNEELELEENENKX 
381 x OÙ EST LA TORTE: &OX,Y,A x 
382 DORE XXXXKEENIDUOUEELE EEE 


383 ; 

384 QU; 

385 SR $B1 

386 LDA BUT,X+1 

387 LOY BUT,X 

388 SR INT,RED. 

389 SR VARIABLE 

490 TAX 

d91 USR CHARGE X TORTUE 
39 LDA #$00 

393 LDY BIJT,Y 

394 USR INT,REE. 

995 USR VIRGULE 

396 JSR VARIABLE 

397 TAX 

378 USR CHARGE sŸ TORTUE 


DENON TASER PRREINNEE 


PARENT TEE 





397 UDA ANGLE+I 
41 LDY ANGLE 
401 JSR TNT,REEL 
402 JSR VIRGULE 
403 JSR VARIABLE 
404 TAX 

405 USR CHARGE 
406 LDA #$00 
407 STA $i4 

403 JP SORTIE 
409 ; 

410 VARIABLE LDA #$90 
all STA $14 
412 SR VAR 

413 BIT $il 
414 BNI V,#RR 
415 BIT $!2 
416 BNI V.HRR 
417 RTS 

418 V,ARR JP MER 
419 ; 


420 XXNAX TIRER KXAAXXKKIQE 


421 x LEVER GÙ BAISSER? $L #80 x 
422 MXKXK ATEN ER TN 


473 ; 

424 LEVER, 

425 JR $Bi 
426 LLEVER LOA #$00 
427 STA PLUME 
423 JHP SORTIE 
429 ; 

490 RALSSER: 

43i JSR $B1 

432 SR ENTIER! 
433 LDX ACUI 
434 CPX 39 

435 BCE BPLURE 
436 AP ILLERR 
497 B.PLLRE STX TORCOLOR 
438 USR HCOLUR 
439 SR PLOTO 
440 LDA #5! 
441 STA PLIRE 
442 JP SORTIE 
443 ; 


445 x CENTRER LA TORTIE: âC x 
446 HAXXIAXXKIENAIIAKK UD 


447 ÿ 

449 CONTRER: 

449 JSR $B1 

4590 JSR HILIEL 
451 LDA PLIRE 
452 RNE Ce TRACER 
493 USR FOBUT 
454 A SRTIE 
435 CTRACER JSR PLOTOBUT 
456 MP SORTIE 
457 ; 


PREFUSE TABLEAUX 


458 LIEU, 
459 

460 

46 

462 

463 

461 

465 

466 

467 ; 

463 

469 

476 TRANSX 
471 


477 } 

478 TRANSY 
479 

490 

491 

492 

483 

494 

485 ; 

486 TRANSA 
487 

428 

489 

490 

491 

492 

493 ; 

494 TOUT: 
495 
496022 
477 

498 

499 

500 

901 


9509 }; 

918 PLOTO: 
sti 

J12 

513 

14 

19 

JL6 





UR #0 
STA ANGLE 
STA ANGLE+1 
STA BIST,X+1 
LDA #!140 
STA BUIT,X 
LDA #196 
STA BUT, Y 


UGR TRANSA 
JSR TRANSY 
LDA BUT,X+1 
LDY BUT,X 
JSR INT,RERL 
LDX #BT,X 
LDY /BT,X 
JSR FP,XY 
RTS 


LDA ##00 
LDY BUT, Y 
JSR ENT,REEL 
LDX #B7,Y 
LDY /BT,Y 
JR HFPXY 
RTS 


LDA ANGLE +1 
LDY ANGLE 
JSR TNT,REEL 
LDX #a6t 

LDY /AGL 
SR MFP, XY 
RTS 


LDX 4514 

LOA BT:X:X 
STA TT:X:X 
LDA BT,Y,X 
STA TT, Y,X 


STX TORTUE,X 
LDY BUT,X+1 
STY TORTUE, X+1 
LDA BUT,Y 

STA TORTUE ,Y 
RTS 


LDX TORCOLOR 
JSR HCGLUR 
LOX TORTUE,X 
LDY TORTUE,X+1 
LDA TORTUE. Y 
JAP HPUOT 
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CENTRE ECRAN 


#BUTX —, TT,X 


2BUTY -2> TF,Y 


ANGLE AGE 


5 TORTUEXY=8UTXY 


PORIUE EN TORTUEXY 
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917 ÿ 

918 PLOTOBUT; 

519 JSR PLOTO 
120 JSR TOBUT 
921 LDX BUT,X+1 
922 TAY 

923 LDA BUIT.X 
524 AP HIXE 
525 } 


26 XXKEXAXENAXEEANEENANALEAXEREE 
527 x ECRIRE SUR LA PAGE: 8E1/2 x 
528 XKKXRAIIRRIKREARAINANANKKINIIN 


929 ; 
990 ECRIRE: 
991 JR $B1 
532 JSR ENTIERI 
533 LDA ACUI 
594 CP #$1 
SC) BNE E.PAGE2 
$36 LDA #$20 
537 STA PAGHGR 
539 UMP SORTIE 
339 E.PAGEZ CP #62 
sai BNE E.ERR 
S41 LDA +540 

2 STA PACHGR 
549 JP SORTIE 
344 EERR JP ILLERR 
949 à; 


547 x MONTRER LA PACE HCR &H N x 
948 XXALEXAETTATEATLIAX XX 


990 MONTRER* 
oil JR $81 
992 JSR ENTIERI 
993 LA ACUI 
994 BNE H,123 
JJd BIT $C054 
J10 BIT $C051 
997 RP SORTIE 
398 M,123 CP #$1 
999 BNE M,23 
%60 BIT $C053 
J1 BIT $C054 
2 BIT $C057 
563 BIT $C050 
561 WP SORTIE 
365 H,23 CP #62 
366 BNE H,9 
967 BIT $C052 
348 BIT $C055 
969 BIT $C057 ” 
J70 BIT $C050 
9/1 JP SORTIE 
572 M3 CP #53 
574 BNE N.ERR 
974 BIT $C052 
979 BIT $C051 
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+ UICNE TORTUE-BUT 


1N=0 
PAGE TEXTE 


Ha 
IHGRI NDXTE 


NE 2 
3HGR2 TOTAL. 


13 
SHGR1 TOTAL. 
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5/6 BIT $C057 


577 BIT $C050 
5/8 JKP SORTIE 
979 AERR MP ILLERR 
980 ; 


591 ROOOERERXNNNEXEREEEEEELEKEX 
582 x RIDEAU* 8R C IMÆRSE:C-8 


584 } 

586 RIDEAU: 

586 JSR $B1 
987 JSR ENTIERI 
588 LDA ACUI 
539 CP #58 
996 BCC R.CO-O0R 
971 BEG RNEGAT 
992 JMP ILLERR 
993 ; 

994 RCOLOR TAX 

999 LDA MASCOLOR,X 
996 JSR BKGND 
997 JP SORTIE 
598 ; 

999 RNEGAT LDA PAGHGR 
400 STA $iB 
601 LOY #0 
602 STY $iA 
603 1 LDA ($1A),Y 
&ii EOR #4FF 
&t5 STA ($1A),Y 
606 IN 

607 BNE <1 

608 INC $1B 
609 LDA $1B 

610 ANO #$1F 
él BNE «1 

612 JP SORTIE 
613 ; 


14 XXKIIIARIAIIIIERKIAANIINX 


615 x ENITIALISATION: &I t A 4 x 
616 RDAAMAXANAIAANLANKNTIENKA NN 


617 ; 

618 INIT’ 

619 JSR MILIEU 
620 JSR TOBUT 
621 JR $B1 
622 JSR ENTIERI 
623 LDA ACUI 
624 CP #41 
625 BKE 1.23 
626 LDA #62 
627 STA PAGHGR 
628 USR BKENDO 
629 BIT $C053 
640 BIT $C054 
631 I.SORTIE BIT $C057 
6 BIT $C050 
633 JP LLEVER 
634 ; 


PEHENIRANIRTENRE TER TANLTT 








635 T+23 


637 


64 
6ñt 
612 
643 ; 
644 T.3 
645 
646 
647 
618 
649 
658 
651 
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CH 442 652 TERR JP ILLERR 
BE I,3 853 ; 
LDA #$40 PAGE 2 TOTALE 854 ROOARIENAANENNANENANXNXE 
STA PAGHGR 855 x SUITE DE L'INSTRUCTION & x 
USR EHCNDO 856 KAXAXEXAAXELEARANENKARNNEKEXE 
BIT $C052 657 ; 
BIT $C055 658 SORTIE: 
JÂP I.SORTIE 659 USR $B7 
660 BMÆ S,SUITE 

CP #53 66 RTS + INSTRUCTION TERMINEE 
BMÆ T.ERR 662 SSUITE EDA t';° 
LOA 4420 sFAGE 1 TOTALE 4663 JSR CARAC 
STA PACHGCR 664 JP DEBUT 
USR BKCNDI 665 ! 
BIT $C052 68 KXXXKEAAIIANKKENASRLLARNINX 
BIT $C054 667 ; 
JP I.SORTIE 668 F0 

TORTUE & : récapitulation 
#9150,35A0 


3150- A9 65 8D F6 03 A9 91 85 
9256- F7 03 A9 4C 8D F5 03 93 
9160- 50 85 73 A9 91 45 74 20 
9168- 6C D6 4€ 5C O4 DO O1 60 
9170- C3 5 D0 03 4C CE 91 C9 
9178- 41 DO 03 4C 66 92 C9 58 
9189- 00 03 4C 6F 92 C9 53 DO 
9:68- 05 4C 97 92 C3 56 D6 GS 
9190- 40 73 93 C9 4F DO 03 à£ 
9:98- 9D 93 C9 42 DO 03 4C Fä 
91#0- 93 C9 4C D0 03 4C EÀA 
91AB- C9 43 DO 03 4C 12 % C9 
SiH- 45 DO 03 4C A5 % C9 4 
9:B8- DO 03 4€ C6 %4 C9 52 20 
91C0- 03 4C 15 95 C9 49 DO 05 
91C8- 4C 4C 95 4C C9 DE 20 Bi 
9iD0- 00 C9 2C FO 14 20 0G E1 
9:DB- AB A0 E® 01 FO 51 80 SR 
9HE0- 86 FA À6 A! 86 F9 20 Æ 
91E8- 94 29 BE DE C9 2C FG 12 
91F4- 20 05 E1 R6 AO DO 43 #6 
91F8- A1 EO C4 B9 5D & FB 20 
9208- 4D 94 20 BE DE FO 18 C9 
9208- 38 FO ï4 20 67 DD 20 
9210- Ei AS A0 85 FE ÀS Ai & 
9218- FD 20 3D 92 20 5€ 94 RS 
9220- 06 DO 06 20 6B % 4 FF 
9228- 95 20 97 %4 4C 9F 95 À 
9230- A1 EO 18 BO OS A5 A0 4C 
9238- EO 9i 4C 99 Ef A5 FE 30 
5240- 15 38 A5 FD E9 66 65 FD 
9248- AS FE E9 O1 85 FE 4C 5 
92% 92 ÀS FE 30 01 60 18 A5 
9258- FD 69 68 85 FD A5 FE 69 
9260- 01 85 FE 4C 51 92 20 CG 
S268- 92 20 7C 95 4C FF 95 20 
3270- B1 DO FO 20 C9 38 FO 1C 
9278- 20 67 DD 20 QC Ei 18 À5 
9280 FD 65 At 45 FD A6 FE 65 
9288- A0 85 FE 20 3D 92 20 5 
9290- %é 4c 9F 95 4C C9 DE 20 
9298- C5 92 4C 9F 95 78 0€ FA 
9240- 35 OF 00 00 00 00 00 00 
92A8- 00 00 (@% 00 00 00 00 
92B+- 00 00 00 00 00 00 00 se 
G2B8- 00 00 00 00 00 00 40 09 


32C0- 00 00 00 00 00 A9 CO 
208 - 92 20 F9 ER AS 9D 40 92 
9200- 20 77 £9 20 49 93 20 BI 
32D8- 00 20 67 DE 20 50 % 20 
92€0- 57 93 20 EA €r 20 6€ 93 
92€8- 2C 82 E9 20 65 95 20 49 
5Hÿ- 3 20 5 EB 20 F1 & © 
93F8- 6C 93 20 82 E9 20 50 93 
9300 20 %Æ 93 A9 81 À0 92 20 
9398- £3 £9 20 AA E7 R2 BB RO 
9310- 92 20 2B EB 20 AO :7 20 
9318- 0C El ÀS A6 74 64 A9 C8 
9326- 85 At RS A1 85 FB A9 Æ 
9328- A0 92 20 F9 £A 20 65 93 
9330- 20 CI £7 A2 B6 A0 92 20 
3338- 2B ER 20 A0 E7 20 OC El 
9240- A5 A6 85 FA ÀS A1 85 F3 
9548- 60 A2 À2 A0 92 4€ 2B EH 
9358- A2 A7 AO 92 4C 2B ëB AJ 
9358- A2 40 92 4C F9 ER A9 A7 
S366- 0 92 4C F9 ER A9 À2 A0 
9368- 92 4C E3 E9 A9 A7 AO 92 
9370- 4C E3 E9 20 Bt 00 20 
9378- 93 4€ 35 95 AS FA C9 01 
9380- FO 12 BO 16 AS FB C9 C0 
9388- BG 10 ÀS 06 DO 03 4C 68 
9330- 9% 4C 97 9% AS F9 C9 1B 
9398- 9% £A 4C 39 El 20 B1 00 
S3A0- À5 FA A4 F9 20 F2 E2 20 
33A8- D7 95 AA 20 2B EB RQ 00 
93B4- A4 FB 20 F2 E2 20 RE 
SBE- 20 D7 95 AA 20 2B EB 5 
JS0- FE 4 FD 20 F2 E2 20 
SCB- D£ 20 D7 93 A 20 2B EB 
9350- A3 00 85 14 4C 9F 95 A9 
Da 86 85 14 20 ES DF 24 11 
33#0- 30 05 24 12 30 0! 60 4C 
93E8- 76 DD 20 81 00 AJ 00 & 
93F0- 06 4C 9 95 20 Bi 00 20 
93F8- F8 E6 A6 A1 E0 08 9% 03 
9400- 4C 99 El 86 FC 20 FO F6 
9a08- 20 89 94 A3 01 85 06 4 
9416- 9 95 20 Bt 00 20 28 
9é18- À5 06 DO 06 20 68 à 4C 
9420- % 95 20 97 % 4 F 
%28- A9 00 85 FD 85 FE 85 FA 
9430- A9 8C 85 F9 À9 60 45 FB 


9&38- 20 5 S& 20 4D 4 ÀS FA 
Jä40- ñâ F9 20 F2 E2 À B6 A0 
Sé48- 92 20 28 EB 69 49 00 
945% FB 20 F2 £2 A2 BB A6 92 
3858- 20 Z EB 60 A5 FE A4 FD 
Sä60- 20 F2 28 #2 CO A0 92 20 
Gé68- 28 EF 60 AZ O6 BD ES 92 
S870- SD AC 92 BD BB % 98 B1 
9678- 92 CA 10 Fi 6 F9 86 07 
S486- Râ FA 84 0B RS FB 85 09 
Ju88- 69 À6 FC 20 F0 F6 A6 07 
S490- à 08 AS 09 4C 57 F4 © 
S696- 89 94 20 6B 4 #6 FA 48 
S8A0- AS 79 4C JA F5 20 B1 00 
3498-29 FB E6 AS Ai C9 01 DO 
S6B0- 07 AS 20 85 EG 4C FF 
388- C3 02 DO 07 99 46 85 EB 
94C0- 4C 9F 95 4C 99 E1 20 BI 
3cB- 66 20 FB ES AS A1 00 09 
Sapo- 2E 54 CO 2C 51 C8 4C FF 
9a08- 95 C9 4: DO 6F 2C 55 CO 
J6EO- 2C 54 CO 2C 57 CO 2C 50 
9AEB- CG 4C 9F 95 C9 02 DO 0 
9&F0- 2C 52 C0 2 SD XL 3 
9aF8- CO 2C 5% CO 4C 9F 95 C7 
9500- 05 DO #F 20 52 CO 2C 5% 
g5{- CO 2C 57 CO 2C 50 C0 4C 
9510- 9F 95 4C 99 E1 20 81 00 
3518- 20 FBE6 A6 A1 C3 05 % 
3s20- 05 FO OD 4C 99 E1 AA 50 
9528- F6 F6 29 Fà F3 4C 9F 95 
9630- AS Et 85 1B ÀO 00 8% IA 
9538- B1 IA 49 FF 91 1A CA D 
9560- F7 E6 1B 5 1B 23 1F D 
S6i8- £F 4C SF 95 20 28 Jà 20 
9550- 68 % 20 B1 00 20 F8 F6 
9658- AS A1 C9 01 DO 16 A9 20 
3560- 85 E6 20 F2 F3 2C 5 C0 
35S8- 20 5 CO 2C 57 © 2 W 
9576- CO 4C ED 9 C9 02 DO 10 
3578- A3 40 85 E6 20 F2 F3 2C 
9580- 52 Où 20 5S C6 4E 68 95 
9598- C9 03 D0 10 A9 20 85 E6 
S590- 20 F2 F3 2C 52 CO 2 
3598- CO 4C 6E 95 4C 99 Ei 24 
95R9- B7 00 D® 01 60 A9 3B 20 
95A8- CO DE 4C 6D 91 
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Ce programme est destiné à réjouir les 
amateurs de loto et d’assembleur. et à 
enrichir les premiers... Tout d'abord, ils 
sont sûrs d'obtenir des tirages qui ne se 
répèteront jamais, En effet, la fonction 
RND a le défaut de donner la même 
série de nombres chaque fois que l’on 
allume l'ordinateur. L'astuce que j'uti- 
hs ici permet de pallier ce défaut. Le 
sous-programme gérant un nombre 
aléatoire peut être facilement adapté à 
d'autres programmes. 

Les variables K, K1, Al et AJ sont utili- 
sées dans les programmes en BASIC et 
en assembleur. Pour éviter toute confu- 
sion, il faut savoir que ces variables 


Le loto, c’est facile … 


représentent des nombres dans le pro- 
gramme en BASIC et des adresses 
dans la routine en assembleur. 


Voici les fonctions en assembleur de 
ces variables : 


A1 : adresse de départ d'une série de 
numéros. 

AI : au début du programme, con- 
tient l'adresse de dépait d'une 
série 


au cours du programme, 


l'adresse courante du numéro 
calculé 

à la fin, l'adresse de départ de la 
prochaine série. 


Philippe Fabert 


AJ : contient successivement les 
adresses des numéros d'une 
série pour la vérification et le 
classement. 


NDLR: 


À chaque appel de nombre aléatoire. 
on regarde un octet d'entrés/sorte 
($CO51, page graphique). puis on fait 
autant d'appels à RNB que la valeur de 
cet octet. 


Ce RND est particulièrement intéres- 
sant dans les programmes dans les- 
quels on lui fait appel avant que le cla- 
vier ne soit utilisé. 





JCALL-151 





x4000.40ED 


4000- ÀS 18 85 06 AS 19 85 07 
4988- AS EF 85 FE AD S1 C0 85 
4910- F9 20 AE EF Cé F9 DO F9 
4018- AS EC 85 FC AS 06 85 1A 
4020- ÀS 07 85 1E AS 08 A4 09 
4028- 20 7F E9 20 23 EC AS FE 
4030- A4 
4038- 19 20 2E EE Cé FC 
4040- C5 FE F0 21 AS 18 A4 19 
4048- 20 F9 €A AS 14 À4 1E 20 
4050-— A7 
40%8- ÀS 14 69 05 90 02 Eé 1E 
4040- 85 1A 4C 3C 40 18 AS 18 
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LOTO : programme BASIC 
ILIST 


1 PRINT ECHR$ (4) "EBLOADLOTO.0EHJe6" 
S TEXT +: HOME +: HTAE 13: INVERSE : PRIN 
T "JOUONS AU LOTO": NORMAL +: VTAE 
6: INPUT "COMRIEN BE NOMÉRES {AU 
MOINS 6) ? ’;CH: POKE 235, CH:CL 
= CH + 1: POKE 256,CL: REM 
235 {OU $ER EN HEXA) CONTIENT L 
B VALEUR CH 
10 VTAE 11: INPUT "NOMBRE DE SERIES (AU 
MOINS UNE) ? ":S: BOKE 250,6: RE 
M MET LE NOMBRE DE SERIES 
A TIRER EN 250 (OU $FA EN HEXA) 
15 U = S * CH: DIM AtU): REM TASLEAU 
CONTENANT LES NUMEROS 
20 K = 4%: POKE 8, PEEK (131): POKE 9, F 
EEK (132): REM LES MEMOIRES 
EN PAGE ZERO CONTIENNENT RESPECT 


LOTO en assembleur DOS TOOL KIT 


ROC OK RACONTER ERIEX 


* * 
* LOTO: x 

* * 

x JUIN 92 x 

* * 

X PAR PHFARERT x 
* * 


XML ÉER FIN NICUXTAUOUEE 
; 

STABLE DES LABELS 

; 

SB EQU $E747 

FA EQU $C651 

RD EG] $EFÆ 

HOVHF EQU $EBZE 

MOVFN EQU $EAF7 


Aî EQU $6 

\ ERU $8 
AI EQU $14 
AJ EQU $lA 
CHIFFRE EQU $EB 
CHIFi EQU $EC 
CPT EQU $F9 
EL EQU $FA 
€ EQU #FB 
C1 EQU  4FC 
FLAG  EQU FD 
it EQU %FE 








IVEMENT L’ ADRESSE BASSE ET HAUTE 
DE 43 
25 Ki = 1: POKE 254, PEEK (131): POKE ZS 
, PEEK (132): REM DE MEME POU 
1, 2S4=$FE ET 25S5=$FF EN HEXA 
(1): POKE Z4, PEEK (151): POKE 2 
S, PEER (132): REM DONNE L’ADR 
ESSE DE DEPART DU 1 NUMERO DE LA 
1 SERIE 
35 CALL 16384: REM APPELLE LE PROG 
RAMME EN ASSEMELEUR EN 16384 OÙ $ 
4000 EN HEXA 
43 REM AFFICHAGE 
50 HOME : FOR I = 1 TO U: PRINT SPC{ 5 
— LEN ( STR$ (A(I)))):A(T): 
SS IF I / CH = INT {I / CH) THEN 
T : REM SAUTE UNE LIGNE 
6Q NEXT 


= 
R 
A 
LA 


PRIN 


+ 


} 
*DEBUT DU PROGRÈRE 


+ 


ORC $4000 
PARTIE DA AI 


LOA CHIFFRE/NONBRE DE CHIFFRES À CHAÏUE SERTE 
STA € SCOMPTEUR DE LA SERIE 


#ROUCLE GERANT UN 
JNONERE ALEATOIRE 


La 

PARTZ LDA AL£A 
STA CPT 

PART3  JSR RAD 


iNONGRE ALEATOIRE 
ENTRE 0 ET 255 
FONCTION RAD DANS FAC 


2GPTER PROVISOIRE 


CALCUL DU NOMERE 


+ 


LDa K 3H ET K#I=ANRESSE DE 49 
LDY Hri 47 -> ARG PAR MAP 

J5R ifiP #FAC=FACQNG 

SK INT #REND ENTIER FAC 

LA HI sH1 ET HIH=AORESSE DE 1 
LUN  Kiri 3 + ARG PAR ADN 


ER SRE TETE 
RER ET ES 
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FELIMINE 0 


fFAC -> AI 
PARTS DEC Ci 


#SI C=C1 EVITE VERIFICATION 
: BEQ PART/ 


’ 
LE NOMBRE EXISTE-T-IL CEJA ? 
; 

LDA AI 

iDY AI# 


#FAC=ARG-FAC 
FSIGNE DANS REGISTRE À 
RESULTAT 1&£+ ON RECOIRÆNCE 


+ 


+ 
$CALCUL L'ADRESSE DE AJ 


+ 
? 


PARTS STA Al 


, + 


CALCUL DE L'ADRESSE DE AI 


ÿ 
PARTZ  CLC 


TRE  STA AJ 


k JP AM 
t 
JEFFECTUE L'ECHANGE 


+ 

ECH LDY #51 

ECHI  LDA (AJ) Y 
STA (AI), Y 
BEY 
BPL ECHI 
JSR HOVFA 
LDX A 
LDY AJxi 
JSR MOVHF 
INC FLAG 


+ 


Lu 
SCALCIRL. L'ADRESSE 


L 
ADR ŒCUC 
BEQ FLG 


+ 
+ 


CALCUL LES ADESSES 
La 
CLC 
LDA AJs1l 
STA AI+{ 
LDA A 
STA AI 


ADRI STA À 


Ë 
LES NUMEROS SONT TIRES 


DEC 


ADRESSE DL À MUXERO 
DANS AJ 

343 -> FAC 

FADRESGE DU 1 MMERD 
DANS AI 
sFAC=ARG-FAC 


#RESULTAT POSITIF -* ECHANGE 


NOMBRE D'OCTETS POUR FORMAT FLOTYANT 
AJ -» AI 

iY<0+ ECHANGE CONTINUE 

JARG —* FAC 


FC > Al 
ECHANGE EFFECILE -> ORAPEAU À 1 


:COFTEUR À ZERO 


ECHANGE ? 
QUT+ RETOUR À TRI 


? RESTE-IL ENCORE DES SERIES? 
5 NON: TERME 
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POTOTREUMCIINEUC 
M UDITE ORAtEU TEMPO 
ne 


IN, NAT = #5 | ss 
! PAST TS } s ) 
UE ES 





(Ca 


7) 


er bre 


Vous y trouverez: 
alité et les tendances de l'informatique individuelle 
d'essais des principaux matériels e des panoramas 

sts’eomparatifs e le point des grandes manifestations 
ternationales e des articles d'initiation e des synthèses 
e des programmes e des interviews “exemplaires” 

e des conseils e des idées e des astuces 


€ RDINATEUR INDIVIDUEL, chez votre marchand de journaux 





Tableaux de taille déclarée en Pascal 


Le programme ci-après montre com- 
ment on peut créer des tableaux de 
taille déclarée à l'exécution d'un pro- 
gramme en Pascal. Ce tableau est créé 
en variable dynamique. 


Le progamme de démonstration qui 


FROGRAN TAELEAUXVARTAELES; 


CONST MAXTAE 
MINIMUM 


MIE 
ARTICLE = 
TAELEAU = 


PTINT = 


FTART 


VAR ART 
FART 


TAE 1; 
TAEZ 


DEFART, 
SOMMET 
CL. 


MAXART I; 
MAXART2 


Pom's n° 6 


= 5000; 
# 140 


RECORD NUMERO: INTEGER; 


NOM 
END; 


ARRAYED::MAXTAEI OF ARTICLE; 


RECORD 

CASE EOQOLEAN 
TRUE à 
FALSE: 

END; 


RECOKD 
CASE ISOOLEAN 
TRUE i 
FALSE: 
END; 


: RECORD 


CASE EOOLEAN 
TRUE * 
FALSE: 

END; 

‘ ARTICLE; 


: FTART ; 


à FTTAE 3 


£ definit la position de 


? FTINT 
? CHAR 


Ÿ mirimum de memoire necessaire 
Z normal du prouramme en mots de 16 bits 
+ environ 


Kégis Lardennois 


rapport à la longueur déclarée dans le 
type (5008 dans notre cas). La lon- 
gueur réelle ne peut par conséquent 
pas dépasser la longueur maximale 
déclarée. 


suit permet en outre l'affichage des 
valeurs des pointeurs utilisés. 


Remarque : le compilateur Pascal 
effectue les tests de débordement 
d'indice de tableau. non par rapport à 
la longueur réelle du tableau, mais par 


3 


pour le eruvuliement 
Siar AFFLE IT 
AFFLE /// 


CERTA #3 


80 en AFFLE II et 140 en 


+ variable occupant 10 octets 3 


c'est sa dire S mots de 146 bits 


iSTRINGL 93; Ê 


type varient permettant d'utiliser: 


OF les variables au choix cemme etant: 





(FSSINTEGER); du type ‘pointeur desiensant un F 
(ISINTEGER ); nombre entier’ ou du type ‘nombre z 
entier’ (assant alors 13 valeur du © 


pointeur c'est 3 dire une adresse 
memoire © 

l'utilisation de varsbhles de tpe 
variant autorise l‘’affichauge 
direct des valeurs des pointeurs 


a le 0 NT me a re 


tar 
dr 


(tar En 
SIT. 


ET 
ain 
PATES 


> 


{ idem sauf aue le tspe pointeur 
OF 1 desiare non ur entier mais 1418 
(FSAARTICLE 1 varisble de type article à 
{L'INTECER 


” 


155 


hs 


Hé 


»)3; 
); 


4 le type pointeur desiane cette 
OF : fois-ci une variable de t4pe 
CFIATAELEAU)? 2 tableau d'articles 
(I: INTEGER ); 


J. 


es Lt 


Le pile au debut du programme: 


#4 definit la position instantanee du haut de la pile x 
; 


Ÿ nombre maximal d’articies du tsbleanu 1 
t INTEGERS* nombre maximal d’articles du tableau 2? ©? 


55 


| 


\ LA M de 


mu 


+ 


TETE 


NUIT 


J 
MEMAL 


i INTEGER; 
si REAL; 


FROCEDURE MENU; 
BEGIN FAGECOUTFUT); € APPLE II ©: 


END; 


FROCEDURE DESTRUCTION; 


WRITE(CHR(28)); © AFÉLE /// 3 
WRITELNC’ FROGRAMME DE DEMONSTRATI@N DE CREATION ’, 
‘DE TAELEAUX DE DIMENSION VARIAELE'); 
WRITELN: 
MEMAV:=2,0 x (MEMAVAIL-MINIMUM) ; 
WRITELN(C’memoire disporiible ’,MEMAVAIL,’' mots de 14 bits soit ’, 
TRUNC © MEMAV/CSIZEOF(ARTICLE)}) 2,’ articles ‘’); 
WRITELN; 
WRITELN(’dimension tableau i = ‘’,(MAXARTI+1), 
‘ dimension tableau 2 = ’,{MAXART2+1)); 
WRITELN; 
WRITELN(’vasleurs pointeurs en octets’); 
WRITELNC'’DEFART FILEz= ‘’,DEFART,I:S;, SOMMET FILE= ‘’,SOMMET,.I:5;, 
/  TAELEAU 1=";:TAEL.,I:5,’ TAELEAU 2x’, TAEZ,I1:5); 
WRITELN; 
WRITELN(’1 DESTRUCTION TAELEAUX”); 
WRITEiN(’2 CREATION TAELEAU 1°}; 
WRITELN{’3 INITIALISAT TAELEAU 1’); 
WHRITELN(’4 VISUALISAT TAELEAU 1°); 
WRITELN(’5 CREATION TAELEAU 2’); 
WRITELN(C’6 INITIALISAT TAELEAU 2°); 
WRITELNC’7 VISUALISAT TAELEAU 2°’); 
WRITELN(’esc QUITTER’); 
REAN(CL.); 
WRITELN; 


destruction des varisbles dynamiqies crees > 


depuis l’instriiction MARK(DEFART,.F) h 


Dern 


EEGIN RELEASE(CDEFART,F); 


END; 


SOMMET ,F'S=DEFART.F'; 
FART,L!=DEFPART.I;TAËE1.I:=DEFART.I;TAEZ2,I:=DEFART,IT; 
MAXART1:=0; MAXART2:=0; 


FROCEDURE CREATI; 
BEGIN WRITE( ‘nombre d'’articles max ? ‘’),;READLNCMAXART 1); 


MAXARTLS=MAXARTI-1; € parce que l'indice du tableau ©: 


? commence 8 0 3 


IF MAXART1<“0 THEN MAXARTi:=0; 
MARK(TAE1,F); 
FOR Ji=0 TO MAXARTI DG 
NEN(FART,.F)$£ on cree MAXARTI fois ure verisble 


+ de t'ipe ARTICLE ce qui cree la cd 
+ place meñoire pour le tableau se 
MARKÇSOMMET.F); 
END; 
FROCEDURE CREAT2Z; 
REGIN WRITE{’nombre d'’articles max ? ‘); 
READLN(MAXART2) ; 
MAXART2:=MAXARTZ-1; Ÿ parce que l’indice du tableau 2 
£ commence 8 0 > 
IF MAXART2Z2<0 THEN MAXART2:=0; 
MARKCTAEZ,F); 
FOR Ji:z0 TO MAXART2Z DO 
nee.” PO rer ne 7] 
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NENCFART.F)$2Z on cree MAXARTZ fois ne varisble à 
& de type ARTICLE ce qui cree 13 > 
£ place memoire pour le tsbiesau 1e 
MARK(SOMMET,F'); 
END; 
FROCEDURE INIT1; 
ÉEGIN FOR J:=0 TO MAXARTI DO 
ÉEGIN TAEÏi.F LJ1,NUMERO!=1J; 
TAEÏi,FALJ1.NONM t='TAELEAU 1’; 
END; 
END; 
FROCEDURE INIT2?; 
ÉEGIN FOR Ji:0 TO MAXARTZ DO 
RECIN TAEZ,FACJ1, NUMERO !=J; 
TAEZ,FACJ T1, NOM t=’/TAELEAU 2°} 
END; 
END; 
FROCEDURE VISU1; 
ÉECIN FOK Ji:z:0 TO MAXARTI DO 
WITH TAE1Ï,FACJ1 DO WRITELNCNUMERO: 5; ’ » NOM) ; 
READ(KEYEOARD, CL); 
END; 
FROCEDURE VISUZ; 
EÉEGIN FOR J$=9 TO MAXARTZ DO 
lee 


Une informatique de gestion adaptée aux besoins des gestionnaires et réaliséé par des gestionnaires, 


ETUDIE e opportunité d'utilisation de l’outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 


F ORME e formation à l’utilisation de la micro-informatique 


REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme. et non l'inverse. 
L'eutil micro-informatique répond particuièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditiens cenviviales. 
Nombreuses références en informatique traditionnelle - divers matériels -eten informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 
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WITH TAEZ2,F LU] DO HKITELN(NUMERO!S, ” 
READXKEYEOARD , CL) ; 


* ; NOM) ; 


END; 


EEGIN 
MAXART1:=0;MAXARTZ2:=0; 
MARKÇDEFART,.F); pour pouvoir liberer toute 13 memoire 3 la : 
fin de l’executien &é1 programme Xe 


D Ta 


DESTKRUCTION; 
REFEAT MENU; 
CASE CL Of ‘’1’:DESTRUCT-ION; 

‘2':#CREATI; 
32% TNT; 
AAAUGTSUTL: 
‘9 '4CREAT2; 
*&'{INITZ; 
MP MTOUE 


END; 
UNTIL CL:CHR(27); 
DESTRUCTION; £ sinon stack overflou 
END, 
. Courrier des club 
| Club Observatoire Orion tes avons Eu Sos _. < Ma Pomme 
LS ; ourmant sur pple 1: 
>) d'anime un cercle d'astronomie basé Pouvez-vous nous aider, échanger Les réunions régulières du club ont été 
e à 


” 
LU 


TP 


Un 


3 
EE 


sur la correspondance avec l'étranger ; 
nous avons plus de 160 contacts à tra- 
vers le monde. dont 70 % aux Etats- 
Unis. En cinq mois, nous avons réuni 
plus de 408 listings qu'il nous faudra 
encoder. 


Nous cherchons à rassembler tous les 
listings que les amateurs ont écrit, se 
rattachant à l'astronomie et à la techni- 
que radio amateur, tant théoriques que 
pour les nuits d'observation et 
d'écoute. 


avec nous ? 


B'un autre cêté, nous terminons un 
ouvrage consacré à l'astronomie 
d'amateur, en plus de 650 pages et 
450 clichés. Un chapitre est consacré à 
la micro-informatique. Vos listings peu- 
vent encore s'incorporer à l'ouvrage, et 
rester sous votre copyright. 


Thierry Lombry - Club Observatoire 
Orion. Tienne aux Pierres 94, B. 5150 
Wepion. Belgique. 


LA NACELLE 


déplacées au troisième mercredi de 
chaque mois. 


Pour tous renseignements, contacter 
Jean-François Duvivier, au (1) 
558.05.78. le soir (éventuellement 
tard) 


Ma Pomme - 
75016 Paris. 


6. rue Paul Saunière, 


LJDRAIFIE INFORMATIQUE 


ÉLECTRONIQUE e AUTOMATISME e MICROPROCESSEUR 
TOUS OUVRAGES ET ABONNEMENTS 


FRANCAIS ET ETRANGERS 


Distributeur exclusif pour la France des manuels techniques du Réseau Calvados 
Tous les euvrages français ou étrangers signalés dans cette revue peuvent être obtenus ou commandés à La Nacelle 


2, rue Campagne-Première 75014 PARIS - Tél. 322 56 46 


Métro Raspail - Parking à la hauteur du 129 bd du Montparnasse 
ouvert tous les jours lundi compris, sansinterruption de 9 h 30 à 18 h 50, samedi fermeture à 17 h 50. 
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The Last One est un programme quise 
donne pour devise : « Je programme 
pour vous |! ». Au premier abord, ça a 
l'air vrai, mais ça ne l’est que dans les 
limites d'un certain nombre de restric- 
tions. 

Au lecteur déjà initié à la programma- 
tion, le premier contact avec le manuel 
d'application (en anglais) donne une 
impression très favorable. Les explica- 
tions sont claires et précises. Même le 
non-initié y trouvera son compte, car 
les termes risquant de poser problème 
sont expliqués de façon claire. 


L'initiation au programme se fait à 
l'aide d'un exemple, introduit pas à 
pas. On ne vous explique pas toujours 
immédiatement les instructions présen- 
tées, mais, au bout d'une heure de tra- 
vail, on à un programme de saisie de 
données pour fichier qui toume. Une 
surprise cependant : il y a de légères 
différences entre ce que l'on voit à 
l'écran et la description qu’en fait le 
manuel d'application. Cela tient au fait 
que ce dernier est unique pour foutes 
les versions de The Last One. Un petit 
livret, foumi en annexe, spécifie les 
caractéristiques particulières de la ver- 
sion Apple IL Tout rentre alors dans 
l'ordre. 


En fait, l'apprentissage est très rapide, 
du moins pour ceux qui ont déjà de 
bonnes notions de programmation. 
Quant au parfait néophyte... il ferait 
mieux de s'abstenir. En effet, pour utili- 
ser The Last One valablement, il faut 
savoir faire l'analyse du programme 
que l'on désire obtenir et en dresser 
l'organigramme. À partir de là, et c'est 
cela le grand atout de ce progiciel, le 
programme BASIC est généré sans la 
moindre faute de syntaxe. En d'autres 
termes, vous définissez les étapes à sui- 
vre et vous obtenez un programme qui 
les exécute. C'est déjà non négligeable 
pour tous ceux qui sont fâchés avec 
leurs virgules, deux-points et autres 
séparateurs ou identificateurs.. 


Mais, pour en revenir à nosrestrictions, 
dès que l’on sort du tronc commun des 
BASICSs pour exploiter à fond les possr- 
bilités de l'Apple (T.L.O. le permet), il 
faut connaître celles-ci et les écrire telles 
qu'elles seront dans le programme 
final. C’est le cas pour les fonctions gra- 
phiques, formules, appels à des routi- 
nes. 


De fait, The Last One est un pro- 
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The Last One à l'essai 


gramme qui s'adresse réellement à des 
gens qui possèdent déjà des connais- 
sances en BASIC. 


Mais alors. qu'apporte-t-il ? Avant tout, 
la certitude, si on ne s'est pas trompé 
en définissant la logique du pro- 
gramme, que celui-ci marchera du pre- 
mier coup. Ensuite, pour tout ce qui est 
traitement de fichiers, description 
d'écrans d'entrée-sortie de données et 
branchements. une programmation 
grandement facilitée et accélérée, car 
des fonctions spécifiques y sont consa- 
crées. Enfin, mais il faut introduire là 
des réserves, un gain de temps au 
niveau de la mise au point des pro- 
grammes. 


Pour comprendre les raïsons de ce gain 
de temps et de nos réserves, regardons 
comment The Last One fonctionne. 
D'abord. grâce au menu principal, on 
établit un organigramme ({flowchart) 
dans lequel on définit dans leur succes- 
sion la nature des opérations (choix de 
menu, opérations sur fichiers, 
calculs...) sans s'occuper des opéran- 
des. Cette phase est rapide et facile à 
mettre en œuvre. Les possibilités d'édi- 
tion (création et suppression de lignes) 
sont très bonnes, malgré un scrolling 
un peu lent. 


Le flowchart est la seule partie du projet 
de programme que l'on puisse conser- 
ver pour modification ultérieure, hor- 
mis le listing final en BASIC. 





La phase suivante consiste à « coder le 
programme », c'est-à-dire définir les 
endroits où s'effectueront les branche- 
ments, la description des écrans, les 
formules pour les calculs. C'est une 
étape un peu fastidieuse car ceci est fait 
ligne par ligne de l’organigramme : les 
temps d'attente entre les demandes de 
renseignements sont assez longs ; on 
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finit par connañre trop bien le message 
« Working ! Please wait » 


C'est à cet endroit que se situent nos 
principales réserves. Si vous n'avez fait 
aucune erreur (de logique — oubli 
d'un test ou d’un branchement — car 
les autres ne sont pas admises par 
T.L.O.), c'est parfait. 


Mais supposons que vous ayez oublié 
une ligne dans l'organigramme, un test 
du type « Etes-vous d'accord ? » par 
exemple. Il vous faudra alors modifier 
celui-ci en conséquence, ce qui est 
facile, mais il faudra ensuite recom- 
mencer toute la phase de codage. Ce 
qui revient quasiment à doubler le 
temps de mise au point du pro- 
gramme, car c'est cette phase qui 
prend l'essentiel du temps. 


C'est là le défaut majeur de The Last 
One. S'il ne faut pas recommencer plus 
d'une fois, le gain de temps au niveau 
de la mise au point du programme 
reste cependant appréciable. 


Mais, dira-<-on, ne peut-on directement 
faire les corrections sur le listing engen- 
dré ? Techniquement, c'est parfaite- 
ment possible. Mais en pratique quasi- 
ment iréalisable... 


Premièrement, il reste alors un pro- 
gramme BASIC à analyser pour trou- 
ver les endroits à modifier, ce qu'on 
voulait justement éviter en utilisant 
FE O! 


Deuxièmement, comme on le consta- 
tera sur l'extrait de listing présenté ci- 
dessous, la complexité du programme 
engendré a de quoi décourager même 
le programmeur expérimenté. 


En effet, d’une pat il n'est pas du tout 
documenté (les seules REMs sont 
constituées par l'organigramme inséré 
en début de hsting), d'autre part The 
Last One génère ses propres sous- 
programmes, qu'il n'est pas du tout évi- 
dent de décortiquer. Parmi ceux-ci, il y 
en a d’ailleurs de très intéressants : la 
routine d'INPUT, celle de traitement 
des erreurs (automatiquement intégrée 
dans tous les programmes). 


Notons aussi que, lorsqu'une descrip- 
tion d'écran se retrouve identique à 
elle-même en plusieurs points du pro- 
gramme, The Last One ne sait pas le 
reconnaître : on la retrouve par consé- 
quent en plusieurs exemplarres dans le 
listing. Pour cette raison comme pour 
d’autres, les listings sont relativement 
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longs. A titre d'exemple, le programme 
de larticle « Notions de base sur les 
fichiers » du Pom's 4 prenait 
13 secteurs sur une disquette. Réécrit 
avec The £ ast One. ilen prend 31. Les 
temps d'exécution s'en ressentent for- 
cément (peu, il est vrai, pour cette taille 
de programme, mais cela peut devenir 
gênant). 

Ï a fallu moins de trois heures pour ren- 
dre le programme opérationnel avec 
The Last One, malgré la nécessité de 
recoder une fois à cause de loubli de 
positionnement d’un pointeur. Ce der- 
nier aspect fait de The Last One un 
programme assez attrayant pour la 
grande majorité des programmeurs 
« moyens ». Le débutant sera un peu 
frustré de ne pas pouvoir en tirer le 
maximum sans apprendre le BASIC - 
T.L.O. n’est pas un outil pédagogique. 
Quant au programmeur chevronné, il 
lui sera plus rapide et efficace de pro- 
grammer lui-même. Aux autres, je 
laisse le soin de juger si l’aide. il est vrai 
non-négligeable, que peut leur appor- 
ter ce progiciel vaut son prix de 2 500 à 
3 000 francs. 


THE LAST ONE : extrait de programme 


FRINT MID 
Re Sn SO 
{A$, i,S): 

390 PRINT MIDS 

LOG-DEC = HenNe = 

933:AS$ = 

CRAN EE EL 
LS SORTE 
+ 1 — 

PRINT CHR$ 

GET H$ih = 

GOTO 480: 
) GS8TS8 =00Q: 
OR K = 47) 
EN SN D 8R 
3 PRINT 


580 


SD 


F5 it « 
3: 


AND 


DRESSÉ HEC 


S 
= LEEN (AS — 
L THEN  BRINT 
} 


= 
La 


C.O.R.P. à l'essai 
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Le progiciel C.O.R.P. se compose de 
deux disquettes. Au sens strict du 
terme, le nom de « générateur de pro- 
gammes » qu'il se donne est justifié 
dans la mesure où ce qu’on obtient en 
fin de compte est bien un programme 
Applesoft. Seulement, on ne peut pas 
créer avec cet outil nimporte quel type 
de programme. Les auteurs d’ailleurs le 
précisent dans la documentation : 
CORP. est un générateur de pro- 
grammes pour la création et l'exploita- 
tion des bases de données. Voyons 
donc ce qu'il en est exactement. 


Premier contact avec le produit : sur- 
prise agréable, le manuel d'application 
est en français, les explications sont 
claires et simples. Il est cependant pri- 
mordial de tout lire avec attention et de 
ne pas essayer le programme avant 
d’avoir lu le mode d'emploi dans son 
intégralité. Et pour cause : la protection 
contre les copies pirates repose sur un 
petit boîtier qu'on enfiche dans le con- 
necteur de jeux, faute de quoi, paraît-il, 
la disquette s'autodétruit (je n'ai pas 
essayé et ne vous conseille pas de le 
faire). Une fois cela fait, le travail 
sé&ieux peut commencer. 


L'utilisation est d’une facilité étonnante. 
Prenons par exemple le cas d’un pro- 
gamme de gest'on de fichier. Ii sufft 
de définir votre êcran pour les 
entrées/sorties de données, un peu 
comme en création de masque avec 
MEM/DOS (ex-M/DOS). Pour cha- 
que ligne non vide, l'utilisateur définit 
les étiquettes de ses variables (nom, 
adresse,….), leur nature (alphanuméri- 
que, numérique...) et le nombre 
maximum d'enregistrements admis. 
C'est tout! CORP. se débrouile 
ensuite tout seul comme un grand et, 
cinq minutes plus tard, a mis en place 
un système complet de gestion de 
fichier : création, modification, recher- 
che (rapide et lente) ou suppression 
d’un enregistrement. C'est remarqua- 
ble. 


Qui plus est, il est possible de définir les 
champs des variables caractère par 
caractère ; ce qui permet d’avoir une 
variable du type : « CODE ARTICLE 
AA##A», où AÀ représente un 
caractère alphanumérique et +# un 
chiffre. 


Quant à la différence de vitesse dans la 
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KS + "n LL + 
NOT 3 
G8Ts 
as, LUE 


BRINT 


(US, 
NST Mb): 

(8): 

ASE (K$ + EH): 
SN K = 
CIN 
GOTG 420: 


MIDS 
- NOT MO)s AS = 


S):5 RETURN 

GsFD = Di = 
MID$ (US$, 1,ML) 
DL — 993 THEN PRINT 
VOD Hands etes Ar D 


= {2S = 


SN K = & 
15 AND EN (AS 
{K € 45 8h K > 537 
IF K = de Th 
&203:D = 

NOT mi 


NST DL G8TS 
(H$,i,ML + 
MID# ("x — 
ABS (€ VAL iA$j))imC 
1: iF DL € 93 AND M 
RIGHTS 15$ + A$,ML 


recherche, elle vient de ce que, pour la 
variable définie comme étant la clé. 
C.O.R.P. intègre au programme 
généré un système de recherche à table 
de référence (se reporter à l'article 
« Notions de base sur les fichiers » du 
Pom's 4 pour de plus amples explica- 
tions). 


Un fait est à signaler : le programme 
crée une table de référence pour le 
maximum d'enregistrements possibles 
ou autorisés dès le début. De ce fait, 
même sil ny a aucun enreg'strement 
dans Je fichier, si on n'a pas fixé de 
limite de taille (fichier sur toute la dis- 
quette), la table de référence prend 
25 secteurs. 


Récapitulons ! I m'a fallu 15 minutes 
(et je suis large) pour créer le masque 
d'écran, puis encore cinq minutes de 
travail pour C.OR.P.,, et nous avons 
un progamme Applesoft complet, qui 
marche (dans tous les cas) et pennet, 
grâce à son système de recherche, de 
retrouver rapidement les articles par 
une clé. ou lentement tous ceux corres- 
ponant à une combinaison de critères 
en nombre non limité. Remarquable ! 
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Le seul problème (mais en est-ce un 
réellement ?) est qu'on ne peut pas en 
obtenir moins. Le programme ainsi 
créé prend 45 secteurs (contre 13 pour 
le même programme à la main). !l est 
vrai qu'il est plus performant par ses 
possibilités de sélection multicritères. 


detons un coup d'œil sur le listing 
engendré. Il est long, bien sûr... mais il 
est très clair. 1 n'y à presque jamais plus 
d’une instruction par ligne ; il est facile- 
ment lisible et en conséquence aisé- 
ment modifiable (je n’ai pas eu à le faire 
cependant). On trouvera ci-dessous un 
exemple. 


S'il n'avait que cela, C.O.R.P. serait 
seulement un bon produit comme on 
en trouve encore assez souvent. Mais il 
y à plus. Tout d'abord, il est possible 
de cross-référencer les fichiers (i.e. faire 
des renvois). Mais surtout, il y a des 
possibilités de création d’autres types de 
programmes : 


— programmes d'impression d'états en 
tous genres ; 

— programmes d'édition de formulai- 
res pré-établis avec recherche des don- 
nées dans le fichier. Très pratique par 
exemple pour établir des factures ; 

— programmes de reclassement de 
fichiers selon un champ quelconque en 
ordre croissant ou décroissant ; 

— et surtout programmes de mise à 
jour de tout ou partie d’un fichier selon 
des formules données. On peut, à 
l’aide de ceux-ci, appliquer un pour- 
centage de hausse sur les prix de tous 
les articles du fichier, ou seulement 
pour certains articles sélectionnés selon 
des critères à définir ; 

— enfin, la possibilité de reconstituer 
des fichiers partiellement détruits par 
une fausse manœuvre. 


Comme on le constate, C.O.R.P. est 
une panoplie très complète de gestion 
de base de données. En fait, ce n'est 
méme rien de plus. La seule chose qui 
le distingue d'une base de données du 
type CX Multigestion ou DB Master, 
c'est que vous pouvez définir vos 
écrans comme vous l’entendez et que 
vous obtenez un programme Applesoft 
complet et autonome dont les fichiers 
sont lisibles par tout autre programme 
du genre. C'est déjà beaucoup, diront 
certains. 


En effet, ça l’est, surtout si l’on prend 
en considération la facilité d'emploi de 
C.OR.P. (on peut réellement s'en 
servir sans rien connaître en informati- 
que), là vitesse de mise au point des 
programmes et surtout leurs perfor- 
mances de rapidité et fiabilité. 


De plus, le listing étant facile à lire, on 
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CORP : extrait de programme 


2090 INPUT "":vUS$ 
UC TD EE NS MM OT MEN ZE 0 
| | 
AAC TERME DE AAA TANT LU TES TEE 23 5C 
Z120 G6OTQ ZO70 
ZLLSON DIE DS: et HE THEN-HGUSURS ECC 
25e TE NC$ (yat MAEN D GOSUARMEG 
SALE TER EME CI THENSO TE 
tr = À 
Z160 GSiO0 1250 
2170 RECS$ = "+" 
2180 FOR ITEC = 1 T5 4 
FHOU RECS = REC$ cf FIELDS (TTER) 
FSQQ NEKXT iVEC 
peut facilement modifier le pro- de données et autres bêtes du mêmes 


gramme, par exemple pour traduire en 
français les commandes (en anglais 
dans le programme généré). 


En conclusion, pour quiconque tra- 
vaille souvent avec des fichiers, bases 


genre, CORP. est un excellent outil. 
Nous aimons beaucoup. 

C.ORP. coûte 2 990 F H.T. pour le 
système complet, 2 100F HIT. en 
version de base. 
























de BASIC 





a 
ELA. - 
Euseigrement Assisté per Ordinateur Pour @réjiaateurs 
MOPPE D'ANPIC®S + SELES n TE 2020 — APPLE II - 4PPLS ILE + 
COURS EN FRANCAIS 
« APPLES@PT D - 2PPLE IT ( + Carte APFLESSFT } 
- APPLE II + 
- APPLE III 
- MOPP3 B'ANPXCO ( + APPLESSFPT en FO ) 
+ PALS@PP Û- JTT 2820 ( + Carte PALSEFI ) | \ 
. SILACE  Q- sI2Zx ( de Léanoré ) | \ 
{ Sur DISQUBTTES 5 1/4 Pouces - DOS = DCS 5,3 - Mémoire = 48 K. } 
1/ COURS 1 ( B1SIC ) - mn Français 
. TRS FROCRESSIF - Fe nécessite aucune cencaissance préalasle en 
informatique, 
. Four débutants et nen ééeuterie TOUT Y EST EXPLIQUE. 
+ 29 Lezons - Eiviron 18 8 12 Heures de cours. 
« AC Mwercices cezmentés, expliqués, résolus, exécutés. 
° 14C Questions netées sur 28, per groubes. - Réparsea ab: questiens. 
« GRAPHISLE RASSÉ et HAUTE RESSLUTI6N. 
+ défilement autonetique du Cours evec arrêts et reprises possibles 
en cours de leçon. 
+ De necbreux exercices peuveñt être réexécutér autant de fe5s que 


vous le souheisez. Ainsi, vous pouvez ebternir 188 Dêree réevl’ste 
ou des résultats différents ec faisant varier lee denrées d'entrée, 


À 14 PIi 2= cz COURS. VOUS SAURES PROGRAMMER, 


2/ COURS 2 (BASIC + ) - En Français > 
+ Philasephie générale iéentique à celle du COURS 1 ( BASIC ). À 


« 05 Lezonz - 12 Heures de cours minimum, 
. 129 Æxercices camcentés, expliqués, résolus, exécutée. 
+ 168 @uestiens notées sur 29, par Ereuses - Répenses aux quéstiense 


3/ CONTRAS-LOCATION du COURS BASIC pour: 





« Etablissenents d'Enseignement, 

«+ Etablissenents de Pormetion payante. 

« Centre de Recherches, Laboratoires, Centre d'Essais,..se 

+ Comité d'Entreprises. 
LT sr 4 


PRIX ( T.V.A. comprise ) 





ANDRE F. FINOT 
8 Allée BUFFON 
91000 EVRY-COURCOURONNES 


« COURS 2 ( BASIC + ) 375 FF. 


Prix donnés à titre indicatif, pouvant 
Être modifiés sans préavis. 
= 
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Erratum 


Hervé Thiriez 


5 me faut faire amende honorable au 
sujet du demier numéro de Poms : 
avant dû le terminer au mois d’août, en 
même temps que mon livre sur Visi- 
cale, j'ai laissé passer certaines erreurs 
dans la rédaction et le contrôle des aiti- 
cles. Je ne dispose pas sur mon Olym- 
pia des caractères << , => et # ,etil 
faut en effet les créer manuellement. 
Voici les corrections. dans l'ordre de 
lecture de Pom's, auxquelles nous 
avons ajouté des compléments d'infor- 
mation. 


1. Le clavier magique 


Page 4, colonne 2, ligne 4, il faut lire : 
#-<DEPART >, <INCREMENT >. 


2. La programmation 
facilitée 
Page 23, colonne 2, lignes 6 et 7, lire : 


X << 128 diminue la durée, X > 128 
augmente. 


15 lignes plus bas, lire « affichant 
PRINT EN ARR(X) ». 


Afin de formater un écran entier avant 
de placer les INPUT et de créer une 
commande de formatage pur, i suffit 
de quelques instructions en plus et de 
créer une commande de formatage 
pur. On supprime « INPUT AS » et le 
paramètre longueur devient obliga- 
toire, car le « 1 » servira à ident'fier la 
commande. Î faut pour cela : 
— Modifier les lignes suivantes : 

72LDY # € 

73 STY LONGUEUR 

74STY $6 
123 BEQ MASQUE 
— Insérer les lignes suivantes : 

54 CMP#"1 

55 BEQ INPUT 


FHIRHA 
76 CMP # ‘1 
77 BEQ INPTL 
115 DEC $BF 
122 INC $BF 
137 MASQUE PLA 
138 CMP ‘T 
139 BEQ GTRTS 


3. HAIFA 


Tout d'abord, il faut intervertir les 


pages 41 et 42. Nous espérons que la 
plupart des lecteurs s'en étaient aper- 
çus... 


Page 35. col. 2, 8 3, ligne 5. lire 
« #$A5 ». 


Paragraphe suivant, lignes 4 et 5, lire 
« fait un bip, déconnecte les routines 
spéciales d’entrée/sortie, puis la repro- 
grammation de HAIFA intervient — le 
RESET agit comme CTRL-C:  ïi 
fait”. 


Page 36, la pile. Lire PUSH > et 
PULL== (pas de signe “="}. 


Page 36, à propos de & GOTO, & 
GOSUB. & RESTORE et & NEW : 
comme on peut utiliser des expressions 
numériques à la place des nombres. il 
vaut mieux ne plus utiliser le RENUM- 
BER ! 


Page 37, le « INPUT anything ». Une 
propriété supplémentaire a été omise : 
& INPUT « {chaîne] » ; [nom de varia- 
ble}, fexp. num]. 

& INPUT [nom de variable), [exp. 
num.]. 


Ces commandes agissent comme & 
INPUT, mais ajoutent derrière le cur- 
seur un nombre de points correspon- 
dant à l'expression numérique (de 1 à 
255}. Ce nombre de point indique la 
longueur maximale de la chaîne autori- 
sée : en cas de dépassement, la chaîne 
sera tronquée en conséquence. 


Page 42. bas de colonne 1 : le type 9 a 
pour effet « TE ». 


Page 43, col. 1, 86, lignes 6 et 7: 
+ <>» pour la gauche, « © » pour 
la droite. 


Page 43, tracer des points et des droi- 
tes : le HPLOT, le X HPLOT et le N 
HPLOT peuvent être prolongés par 
chacune des continuations [ex.i], 
[ex.2] ou TO [ex.1], [ex.2] ou ON 
[ex.3]. 

Page 45, col, 2, 84, lire PR# et IN4# 
au lieu de PR= et IN=. 


Page 46, 82 et page 47, ligne 1, lire 
CTRL-SHIFT-N au lieu de CTRL-%. 
Page 46, dernier 8, lire CTRL-SHIFT- 
P au lieu de CTRL-à. 

Adresse des routines : GETLIN 
($FD6A), RDKEY($FDOC) et 
COLTIS$FDFO). 


Page 48, col. 2, 84, ligne 1 : « Cette 
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routine court-circuite l'entrée de» ; 
ligne 9 : hre PRINT CHR$(4} IN # 
0 » : « IN » et non « PR ». 

Page 51, col, 2, 82: ligne 3: 
« .. tables après les fichiers » ;, ligne 
9 : « du code (HAIFA.CODE en 48K 
ou HAIFA. CODE 1 en 64K), il ne ». 


Remarques sur 
la disquette Pom's 5. 


Le programme source est constitué de 
deux fichiers LISA 2.5 version 64K 
enchaîïés par ICL car l’ensemble était 
trop gros pour tenir en mémoire en un 
seul fichier. L'assemblage de ces 
fichiers sauve automatiquement les 
deux fichiers source. Là encore, il fallait 
deux fichiers distincts car LISA ne laisse 
que 4K pour le fichier généré. 
L'assemblage des deux versions de 
HAIFA (48K et 64K) a été réalisé avec 
LISA en version 64K. Pour pouvoir lis- 
ter les fichiers avec LISA 48K , i a fallu 
découper HAÏFA.TEXT 1 et HAIFA. 
TEXT 2 en deux parties chacun (suf- 
fixes À à D). Ces quahe fichiers 
s'enchaînent avec ICL, mais ne sont 
pas assemblables en 48K car la table 
des symboles est saturée. 


Celle-ci a en effet une longueur de 
$800 en LISA 48K et de $1500 en 
LISA 64K. HAIFA est donc beaucoup 
trop gros pour être assemblé en 48K ! 


4. Conversion Pascal/ 
BASIC/Pascal 


Nous adressons nos excuses aux lec- 
teurs ayant essuvé des difficultés lors 
de l'utilisation. des programmes de 
conversion Pascal/BASIC/Pascal, 
fournis avec les disquettes Pom's 2 
à 4, et commentés dans le 
numéro 3. 


Pour ceux d’entre vous qui reçoivent 
les disquettes, utilisez le programme 
de transfert de BASIC vers Pascal de 
la disquette Pom's 5, dans laquelle 
le bug avait été corrigé, ou celui de la 
disquette 6, bien entendu. 


Ce bug avait été malheureusement 
absent de nos essais, dans lesquels 
nous avions remis les programmes 
sur une disquete Pascal vierge. La 
conséquence du bug est qu'une par- 
tie du programme Pascal risque 
d'être absente en fin de course. 
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Le remède est le suivant. à appliquer 
aux programmes présentés par Gil- 
les Mauffrey dans le Pom's 3 : 


1. Bans PASCBAS OBJO, ligne 
288, lire CMP # $10. 


Donc, dans le code objet, faire 


AE3 : 10. 


2. Dans BASPASC.OBJO (sur dis- 
quette uniquement), ligne 449, lire 
CMP+#5$10. 


Donc, dans le code objet. faire 
C29r "10: 

3. Avant toute utilisation. nettoyer la 
mémoire avec . 

2000 : 0 

2001<2000 . 8000 M. 





“C.OR.P.” et “The Last One” 








Avec le modèle Visicalc, vous pouvez créer sur votre P.S.] (Petit Système 

Individuel) un tableau comportant des titres, des valeurs et des formules. 
Dès que vous changez une des valeurs numériques, tout le tableau se 
met à jour en fonction des formules. Cet ouvrage vous guide pas à pas 
dans l'utilisation de Visicaic, à l’aide d'exemples progressifs. De nom- 
breux cas d'application sont présentés dans la seconde partie, au 
rythme d’un chapitre par cas : échéancier de remboursement, feuille 
d'impôt, gestion de copropriété, paye, facturation, tableau de bord... 
Chaque exemple sert à introduire de nouvelles instructions ou 
astuces d'utilisation. 














176 pages - 82,00 FF/630,00 FB 












P.S.I. DIFFUSION 

41-51, sue JacQuard 

BP 86 - 77400 a@ny-8/Marne 
FRANCE 
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accompagné 

de vetre réglement à 
PS.I DIFFUSION 





















Tetéphorre (6) 007.59.31 eu, pour la Belgique et 

P.S4. BENELUX le Luxembourg, à {par avion aleuter 6 FF (75FB) par livre} 

S. avenue de la Ferme Rose P.SIBENELUX 

1180Bruxeiles 

BELGIQUE 

Téléphone {2} 345.08.50 
En Espagne auCanada NOM = PRENOM 
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Madrid 8 Mentréal Quesec H2X3L1 S 
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e MAPAYE permet detraiterles problèmes de paie pour les éntréprises de 
moins de 150 salariés 

e MAPAYE offre 20) rubriques de paie différentes 

e MAPAYE est actuellement opérationnel chez de nombreux 
experts-comptables, dansle bâtiment, l'hôtellerie; etc 


e MAPAYE rourne sur: un APPLE I}: un APPLE HIL 
MASTOCK III A 


e MASTOCK est un programme de gestion de stock et de facturation, il 
peut très bien faire l'un sans l’autre 

e MASTOCK, dans sa configuration maximale, peut gérer 2000 articles, 
480 cliénts/fournisseurs er 1201) ventes 


du fournisseur à la facturation du client 


e MASTOCXK tourne sur un: APPEE II, APPLE TI 
MACOMPTAI 


e MACOMPTA est un programme de comptabilité en tempsréel, capable 
d'assurer à la fois la comptabilité générale üers et analytique 
MACOMPT A; sur un disque dé 5 millions decaractères, pour 
5000 comptes et 1500 écritures, n'occupe que la moitié du disque, 
MACOMPTA est un programme entièrement paramétrable 
MACOMPTA permet de letrrer les écritures d’un compte ainsi que la 
clôture automatique d'exertice avec reprise des soldes. 


e MACOMPTA tournesur un: APPLE HI 

















MICROCES 


30, bd de Glatigny 78000 VERSAILLES 
Tél. : 16 (3) 955 30 23 





Logiciel 

Micro Informatique Service a rebaptsé, 
pour des raisons de propriété commer- 
ciale, le M/BOS (Pom's 4) en 
MEM/BOS. 


Vous pouvez maintenant constituer 
votre réseau local avec MEMNET, à 
base d'Apple Il et Apple If en cohabita- 
tion. Maximum de 127 postes (Pom's 
vous offre une réduction pour 127 
abennements !}, avec une distance de 
500 mètres maximum entre chaque 
poste. 

Félicitations à M.LS., qui vient d'obte- 
nir ke prix « Système » de la Pomme 
d'Or et de créer sa filiale aux USA. 1 fau- 
drait que le renvoi de la balle aux Amé- 
ricains se fasse un peu plus souvent. 


MS. 3, rue Meverbeer. 
06088 Nice. Tél. : (93) 87.74.67. 


La société C.D. Soft commercialise un 
logiciel de geston de cabinet dentaire 
Ecrit par un chirurgien dentiste et bap- 
tisé AGATHA, ce programme assure 
la gestion d’un fichier de 200 patients 
en cours de soins (plans de traitement, 
soins réalisés…}, l'édition des feuilles de 
S.S., des devis de prothèses, des 
ordonnances... la gestion des recettes, 
dépenses et des impayés. 


Coût du logiciel : 11 600 FF TTE (prix 
indicatif). 

CD. Seft. D' Pierre Gaussen. 

59 bis, rue de la Biche 

30800 Nîmes. Tél. : (66) 28.09.46. 


La société MEBEE propose un logiciel 
d'analyse statistique et de sélection de 
données (profils, moyennes, écart- 
type, droite et cæfficient de corrélation, 
analyse à partir de variables obtenues 
par calcul sur des variables de base, 
recherche multicritère…). 


MEDEE. Logiciel ALED. 
9, rue du Professeur Florence. 


69003 Lyon. Tél. : (7) 854.31.95. 


Autre système d'analyse de données 
scientifiques ou marketing, P.C.S.S., 
distribué par Alpha-Systèmes. Struc- 
ture paramétrable des questionnaires 
traités, tes paramétriques (variance, 
corrélation, régression linéaire. ..), tests 
non paramétriques (Wilcoxon, Fried- 
man.….), plans factoriels, analyses mul- 
tidimensionnelles (composantes princi- 
pales, régression multiple.….), vous sont 
offerts à des prix variant de 7 000 à 
29 500 FF HT selon les options. 
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Micro-informations 


Alpha-Systèmes. 51, rue Thiers. 
38000 Grenoble. Tél. : (76) 47.80.67. 


Microgrès distribue à présent un progi- 
ciel de comptabilité sur Apple III avec 
Profile (25 000 comptes et 25 000 
écritures}, entièrement paramétrable. 
Prix : 6 000 FF HT. 


Microgès. 30. bd de Glatignvy. 


78000 Versailles. Tél. : (3) 955.30.23. 
Matériel 
ZH Computer propose une large 
gamme de périphériques pour 
Apple Il : 
— Lecteur de cartes magnétiques 


(carte bleue ..). 

— Lecteur et encodeur de cartes 
magnétiques. 

— Lecture et impression de «code 
barre». 





— Imprimante de ticket de caisse et 
tiroir-caisse connecté sur Apple. 

— Carte de digitalisation d'image et 
caméra de surveillance. 

— Système de saisie optique de for- 
mulaires, questionnaires. 


ZH Computer. 34, rue Vivienne. 
75002 Paris. Tél : (1) 233.72.07. 


Jod Electronique commercialise depuis 
peu une imprimante-table traçante per- 
mettant le tracé des graphiques en cou- 
leurs sur documents opaques ou trans- 
parents. Prix de l'imprimante (sur la 
base du dollar à 7 FF) : 8 800 FFHT ; 
logiciel de 665 FF HT à 1 377 FF HT 
par programme. 

Jod Electronique. 9, rue Noblet. 
92500 Rueil Malmaison. 

Tél. : (1} 749.70.44. 


Alpha-Systèmes (cf. ci-dessus) pré- 
sente également des cartes d'extension 
RAM 32, 64 et 128 K. livrées avec des 
logiciels permettant de reloger Apple- 
soft Integer et/ou BOS dans la carte, 
de lire ou d'écrire routines, tableaux ou 
programmes dans la carte, ou de gérer 
une où plusieurs de ces cartes par POS 
où CP/M 


Un autre logiciel permet en outre d'utili- 
ser ces cartes avec Visicalc. Prix de 
2 500 à 6 500 FF HT. 


La même société propose par ailleurs 
une carte d'interface «bufferisée» per- 
mettant la gestion autonome d'impri- 
mante (travaux simultanés de l'impri- 
mante et de l'Apple}, avec prise en 
charge de la mise en page et copie 
d'écran graphique (prix : 2 500- 
3 000 FF HT). 

La société B.I.P. a baissé le prix de ses 
cartes : prix public de 5 025 FF HT 
pour la carte 128 K BE (voir Pom's 5) 
avec son logiciel, y compris le Disk 
Emulator et l'extension Visicalc. La 
carte RAM 64 KC est maintenant pro- 
posée à 3 050 FF HT. 


B.1.P. 25, rue du Mont Cenis. 
75018 France. Tél. : (1) 264.02.32. 


Général Automation diffuse des unités 
de disques souples 8” de capacité uni- 
taire de 10 méga-octets, utilisant des 
cartouches souples amovibles inter- 
changeables. Prix unitarre : 6 000 $. 


General Automation. 
Les Mercuriales. 
40, rue J.-Jaurès. 93176 Bagnolet. 


Publications 

Les Éditions Evroles (61, bd St 
Germain, 75240 Parix Cedex @5) pré- 
sentent trois nouveaux ouvrages : 

— Votre Gestion Avec BASIC, par 
Guy Ladevie (138 pages - 65 F). Pré- 
sentation d'exemples d'utilisation du 
micro-ordinateur (comptabilité person- 
nelle ou d'entreprise, état bancaïre, 
gestion de fichiers...) et de méthodes 
nécessaïres pour une bonne program- 
mation. 

— CP/M et sa famille, par P. Dax 
(144 pages - 65F). Description et 
analyse de CP/M, de ses extensions et 
de son environnement logiciel, et des 
conséquences de l'avènement des pro- 
cesseurs 16 bits. 

— L'Assembleur facile du Z 86, par 
O. Lepage (120 pages - 60 F). 
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Courrier des lecteurs 


Enfin une revue en français pour 
l'Apple IL Après beaucoup de temps 
passé à désassembler et comprendre 
l'Applesoft, aidé par quelques articles 
de revues américaines. Quel plaisir 
enfin. 


Je vous fais parvenir un petit exemple 
de mon «travail», qui peut-être intéres- 
sera vos lecteurs. I! s'agit d’une tortue 
(moins puissante que celle du Pascal) 
utilisable à partir de l'Applesoft avec 
« l'ampersand ». 


J'ai passé de nombreuses nuits sur 
l'Applesoft et ai trouvé un ver dans la 
pomme qui re semble pas connu (ni 
grave}. 


Tout numéro de ligne supérieur à 
63 999 provoque une SYNITAX 
ERROR, sauf les numéros compns 
entre 437 760 et 440 319 qui plantent 
l'Applesoft ??? Le saviez-vous ? 


Pour terminer, une question (je con- 
nais moins bien le DOS que lApple- 
soft). La séquence BLOAD «nom de 
programme » et CALL « début de pro- 
gramme» ne fait pas ia même chose 
qu’un BRUN «nom de programme ». Il 
semble qu'après un BRUN, en fin de 
progromme, le RTS ne rende pas la 
main dans certains cas. L'avez-vous 
remarqué ? 


Jacques Duma 
26-28, rue de Clichy, 75009 Paris 


Comme vous pouvez le voir dans ce 
numéro, nous ne nous sommes pas 
privés de mettre vos connaissances à 
contibution. 


En ce qui conceme les numéros de 
lignes entre 437760 et 440319, ce que 
vous avez remarqué est la consé- 
quence d’un bug Applesoft (du moins, 
c'est ce que nous croyons après 
analyse). i s’agit de la procédure LIN- 
GET ($DAQOC) ; il faudrait remplacer 
[DAIE : B8 D4] par [DAIE : BO D6)]. 
Vous pouvez vous amuser à analyser 
la raison de cette modification. 


Bien entendu, la modification ne peut 
être effectuée que sur une version 
d’Applesoft accessible, donc en RAM. 


Quant à votre dernière question, le 
RTS ne rend pas la main chaque fois 
que le programme en assembleur a 
modifié les entrées/sorties écran ou 
clavier. C’est expliqué dans la docu- 
mentation de HAÏFA, qui provoque 
typiquement ce problème. 


Vous avez publié dans Pom's quil 
existe des patches pour Applewriter, en 
particulier pour le mettre en 80 colon- 
nes. Pouvez-vous me dire ce qu'il faut 
faire et me donner des tuyaux à propos 
d'autres transformations de ce pro- 
gramme ? 

Je vous donne celle que j'ai trouvée 
pour obtenir, avec Applewiter I et la 
ROM minuscules, des minuscules à 
écran. Dans le TEDITOR. il faut 
entrer : 

OAE6 : 20 69 18 

1869 : 48 C9 EO 90 O2 29 BF C9 CO 
90 02 09 20 C9 20 BO 02 09 CO 91 
28 C8 68 60 

C'est le recodage des caractères qui se 
fait uniquement pour l'envoi à la vidéo. 
Le codage Applewriter est conservé en 
mémoire. et reste correct pour l'envoi à 
l'imprimante. 

Ce qui m'intéresse également, c'est la 
possibilité d'insérer dans le texte des 
commandes particulières à limpri- 
mante, caractères de contrôle ou com 
mandes plus complexes. Mon IDS jus- 
tfie à droite et à gauche en mode pro- 
portionnel avec la commande 
[CHRS(27);"J,100,600,$"7. Je tra- 
vaille là-dessus ; avez-vous des iuyaux 
à ce sujet ? 

Dans un autre ordre d'idée, 
connaissez-vous des programmes de 
traitement de texte pour Apple qui utili- 
sent la carte 80 colonnes SUP'RTERM 
et acceptent ses commandes, et 
sachent gérer les accents circonflexes ? 


Comme base de données, jutilise 
General Manager. Non seulement j'en 
suis satisfait, mais je trouve que ce pro- 
gramme pratiquement inconnu sou- 
tient très bien la comparaison avec 
d'auhes, notamment le DB Master. 
D'autant qu'il coûte seulement 
995 francs. 

Guido Benvenuto Bettiol. 

2, rue des Remparts, 

30800 Saint-Gilles. 


Merci pour le passage en minuscules, 
voilà un patch très sympathique. Le 
seul traitement de texte qui marche à 
notre connaigance avec la cart 
SUPRTERM est l'Applewriter E, ver- 
sion 2.0. Mais nous ne connaissons pas 
un patch lui permettant de bien impri- 
mer les accents circonflexes. 
Appleuriter 1] permet l'insertion de 
caractères de contrôle ; renseignez- 
vous sur les limites de ce logiciel. 
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Nous sommes désolés, mais nous 
n'avons pas de réponse aux autres 
questions. Nous faisons appel aux 
autres lecteurs de Pom's. Envoyez les 
réponses, s'il vous plaît ! 


Je t'ens à vous féliciter de votre travail 
pour votre (notre) revue Pons. Bien 
que celle-ci mapparaisse quelque peu 
avancée pour le débutant que je suis, je 
m'y suis abonné dès son apparition. 
C'est à vos connaissances et à votre 
compréhension que je m'adresse 
aujourd'hui plus particulièrement. 
Quelques questions restent pour moi 
sans réponses. 

Pouvez-vous m'indiquer les modifica- 
tions à apporter au programme 
Applewriter pour que celui-ci accepte la 
carte 80 colonnes Videoterm ? 
Comment peut-on afficher le CATA- 
LOG des fichiers réalisés avec Visicaic 
en restant en mode de travail Visicalc ? 
Peut-on modifier le programme Visi- 
calc pour qu'i marche avec la carte 
Videoterm ? 

Comment se fait-il, lorsque j'essaye de 
créer un fichier Visicalc sur une dis- 
quetie formatée en DOS avec [/PD], 
que jobtienne le message « [1/0 
ERROR » ? 

M. Philippe Guérin. 

39-41, rue Saint-Fargeau, Bât À, 
75020 Paris. 


À notre connaissance, seule la carte 
SUPRTERM peut fonctionner avec 
Applewiiter. Et, pour tout arranger, 
seule Videoterm cohabite avec 
Visicalc... Contacter Alpha-systèmes 
(voir la rubrique Micro-informations) 
par exemple pour cette cohabitation. 


Î n'y a pas moyen d'obtenir le CATA- 
LOG à l'intérieur de Visicalc. On peut 
seulement faire défiler les noms de 
fichiers avec l'instruction {/SL] et la flè- 
che de droite (une flèche par fichier). 


Si vous êtes sur le drive 1 et que vous 
désirez voir les noms de fichiers sur le 
drive 2, vous y pavenez en entrant 
(/SL,D2], suivi des mêmes flèches de 
droite. 


Î n’y a aucun problème pour sauvegar- 
der des fichiers Visicalc sur une dis- 
quette formatée en DOS 3.3 avec l'ins- 
tuction habituelle [/SSnom]. i n'y a 
rien de spécial à faire. De toute façon 
{/PD] ou {/SS] marche de la même 
façon sur une disquette initialisée 
DOS 3.3 ou Visicalc. 

Le message « 1/0 ERROR x survient 
par contre quand vous essayez, par 
distraction, d'effectuer une sauvegarde 
sur la disquette du programme Visicalc. 
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JCR, UN NOM. QUATRE NOUVEAUTES 


TROIS OUVERTURES. UNE TRANSFORMATION. 


PROMOTION 


1 APPLE 48K 

1 DISK. 3.3. + contréleur 

1 MONITEUR VIDEO 17 

1 BOITE 9€ 10 DISQUETTES 


a lntematque es 7 <esre de l'actualité: aflaires, 
CEE AMLIZÈLTE €: même Particuliers sent 
, concernés 
Aujourd'hui, ICR est au centre Se lalematiqe ie 22tles meilleurs matériels. étu- 
diant pour vous les rm. 10e ME 5 cer professionnels et vous 
ofrent lès elles a 
Aujourd'hui, JCR «= a == és penlomaees. =1zx =, conseil, JCR c'est l'infer- 
IaÈQE SEVIE CERS 


OUVERTURE DE Jj.CR. A MARSEILLE 


ile, 30 novembre 1962 
u Docteur Escat. We nou 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4” 


- 5 V4!’ en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 





